Найти среднее арифметическое всех положительных элементов массива - Pascal ABC (133026)

Формулировка задачи:

Найти среднее арифметическое всех положительных элементов массива. Проверить, имеют ли все элементы массива один знак. Проверить, содержит ли массив знакопеременную последовательность.

Решение задачи: «Найти среднее арифметическое всех положительных элементов массива»

Листинг программы

const
  n = 10;
var
  a : array [1..n] of integer;
  i, s, k : integer;
begin
  randomize;
  s := 0;
  k := 0;
  for i := 1 to n do
  begin
    a[i] := random(10) - 5;
    write(a[i]:4);
    if a[i] > 0 then
    begin
      k := k + 1;
      s := s + a[i]
    end
  end;
  writeln;
  writeln('среднее арифметическое положительных: ', (s / k):0:3)
end.

Объяснение кода листинга программы

Объявляются переменные: — n — количество элементов в массиве (10); — a — массив для хранения чисел (10 элементов); — i — счётчик для цикла; — s — сумма положительных чисел; — k — количество положительных чисел.
Задаётся начальное значение для генератора случайных чисел.
Цикл по всем элементам массива. При каждой итерации: — в элемент массива a[i] записывается случайное число от -5 до 4 (включительно); — выводится на экран значение элемента a[i] (до 4 цифр после запятой); — если значение элемента a[i] больше нуля, то: — увеличивается счётчик k; — к сумме s прибавляется значение элемента a[i].
После цикла выводится на экран число 10 (символ перевода строки).
Выводится на экран среднее арифметическое положительных чисел ((s / k), округлённое до трёх знаков после запятой).