В массиве из 15 чисел подсчитать сумму и количество положительных элементов. Помогите, программа на языке паскаля

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

В массиве из 15 чисел подсчитать сумму и количество положительных элементов. Помогите, программа на языке паскаля

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

var

   a: array[1..15] of integer;

   i, sum, count: integer;

begin

   for i:=1 to 15 do

      readln(a[i]);

   sum := 0; count := 0;

   for i:=1 to 15 do

      if a[i] > 0 then

      begin

         sum := sum + a[i];

         inc(count);

      end;

   writeln(sum, ‘ ‘, count);

end.