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

Question

Информатика

Колюня

8 марта, 08:50

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

+2

Ответы (1)

Знаешь ответ?

Дормидбнт · Answer 1

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.