Найти сумму квадратов не отрицательных элементов и количество положительных чисел в заданном целочисленном одномерном из 15 элементов

Вопрос школьника по предмету Информатика

Найти сумму квадратов не отрицательных элементов и количество положительных чисел в заданном целочисленном одномерном из 15 элементов

Ответ учителя по предмету Информатика

Program n1;

const n=15;

var a: array[1..n] of integer;

i,k,sum: integer;

begin

randomize;

k:=0;

sum:=0;

writeln(‘исходный массив:’);

for i:=1 to n do

begin

a[i]:=random(21)-10;

write(a[i],’ ‘);

if a[i]>0 then

begin

k:=k+1;

sum:=sum+a[i]*a[i];

end;

end;

writeln;

writeln(‘сум. кв. положительных: ‘,sum);

writeln(‘кол-во положительных: ‘,k);

end.