Запишите программу для вычисления суммы квадратов положительных элементов массива действительных чисел. Количество элементов массива n (5

Question

Информатика

Фортуната

27 июля, 17:44

Запишите программу для вычисления суммы квадратов положительных элементов массива действительных чисел. Количество элементов массива n (5

+4

Ответы (1)

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

Маня · Answer 1

Var n:array[1 ... 5] of integer; i, s:integer;

begin

for i:=1 to 5 do read (n[i]);

for i:=1 to 5 do if n[i]>0 then s:=s+sqr (n[i]);

writeln; write ('S = ', s);

end.