Вычислить сумму всех неотрицательных элементов, а также их количество - PascalABC.NET

Формулировка задачи:

Дан массив А[N,N].Вычислить сумму всех неотрицательных элементов, а также их количество. Надо написать прогу в Pasckal.

Решение задачи: «Вычислить сумму всех неотрицательных элементов, а также их количество»

Листинг программы

program massiv;
const n=5;
var sum,s,i:integer; a:array [1..n] of integer;
begin
writeln('Заполните массив');
for i:=1 to n do begin
write('A[',i,']=');
read(a[i]);
end;
sum:=0;
for i:=1 to 5 do
if a[i]>0 then sum:=sum+a[i];
writeln('Cумма положительных элементов = ',sum); 
s:=0;
for i:=1 to n do
if a[i]>0 then  s:=s+1 ;
writeln('Количество положительных элементов = ',s) 
end.

Объяснение кода листинга программы

Создаётся программа с названием massiv.
Задаётся размер массива n=5.
Объявляются переменные:
- sum (сумма) типа integer;
- s (количество) типа integer;
- i (счётчик) типа integer;
- a (массив) типа array [1..n] of integer.
Выводится запрос на заполнение массива.
Происходит заполнение массива с помощью цикла for и оператора read.
Сумма положительных элементов массива вычисляется с помощью цикла for и условного оператора if.
Количество положительных элементов массива вычисляется с помощью цикла for и условного оператора if.
Выводятся значения суммы и количества на экран.