Вычислить сумму и количество элементов массива A(10), для ai>0;?

Для вычисления суммы и количества элементов массива A(10), для ai>0, можно использовать следующий код на языке Pascal: informatic.my1.ru www.cyberforum.ru

var   a: array [1..10] of integer;   s: integer;   k: integer;  begin   s:=0;   k:=0;   for i:=1 to 10 do   begin     a[i]:=random(100);     if a[i]>0 then       begin         k:=k+1;         s:=s+a[i];       end;   writeln('Сумма положительных элементов: ', s);   writeln('Количество положительных элементов: ', k); end. 

В этой программе для подсчёта вводится переменная k, значение которой увеличивается на единицу каждый раз, когда найден нужный элемент. sch61.ru