Question

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

Answer 1

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.