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

Question

Информатика

Арменыч

19 ноября, 06:15

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

+1

Ответы (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.