Запишите программу для вычисления суммы квадратов положительных элементов массива действительных чисел. Количество элементов массива n (5
Запишите программу для вычисления суммы квадратов положительных элементов массива действительных чисел. Количество элементов массива 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.
Не нашли ответ?
Похожие вопросы