Задать вопрос
20 ноября, 12:47

Дан массив MAS вещественного типа, содержащий 20 положительных и отрицательных элементов. Сформировать массив С из положительных элементов массива MAS, имеющих четный индекс. Найти сумму квадратов элементов нового массива.

+3
Ответы (1)
  1. 20 ноября, 15:11
    0
    Var

    mas, c: array[1 ... 20]of real;

    i, c_n: integer;

    s: real;

    begin

    randomize;

    for i : = 1 to 20 do

    begin

    mas[i] : = random (100) - 50;

    if (mas[i] > 0) and (i mod 2 = 0) then begin

    c_n : = c_n + 1;

    c[c_n] : = mas[i];

    write (c[c_n], ' ') ;

    s : = s + c[c_n] * c[c_n];

    end;

    end;

    writeln () ;

    writeln ('S = ', s) ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Дан массив MAS вещественного типа, содержащий 20 положительных и отрицательных элементов. Сформировать массив С из положительных элементов ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы