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

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, значение которой увеличивается на единицу каждый раз, когда найден нужный элемент. 5