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

Question

Информатика

Натальюшка

10 октября, 23:09

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

+3

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