Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.