Pascal. Задача 4-6

Подсчитать среднее арифметическое всех положительных элементов массива.

Решение

Const
  N = 10;
var
  i: integer;
  sum, quatity : integer;
  A : array[1..N] of integer;
begin
  for i := 1 to N do begin
      write('Введите A[', i, ']: ');
      read(A[i]);
    end;
  sum:= 0;
  quatity := 0;
  for i := 1 to N do
    if A[i] > 0 then begin
          Inc(quatity);
          sum:= sum+ A[i];
      end;
  writeln('Среднее арифметическое положительных элементов: ', sum / quatity);
end.