Дан массив X(15). Найти среднее арифметическое положительных и отрицательных элементов массива R1 и R2 - Turbo Pascal

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

Дан массив X(15). Найти среднее арифметическое положительных и отрицательных элементов массива R1 и R2. Определить, какой из найденных элементов больше по абсолютной величине. Составить блок-схему

Решение задачи: «Дан массив X(15). Найти среднее арифметическое положительных и отрицательных элементов массива R1 и R2»

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

var
  x: array [1..15] of Integer;
  i, n1, n2, s1, s2: Integer;
  r1, r2: Real;
begin
  { ... }
  for i:=Low(x) to High(x) do 
    if      x[i]>0 then begin Inc(n1); Inc(s1,x[i]); end
    else if x[i]<0 then begin Inc(n2); Inc(s2,x[i]); end;
  Write( 'Avg(p) = '); if n1<>0 then begin r1:=s1/n1; Write(r1:0:3) end else Write('n/a');
  Write(' Avg(n) = '); if n2<>0 then begin r2:=s2/n2; Write(r2:0:3) end else Write('n/a');
  WriteLn;
  if (n1<>0) and (n2<>0) then begin
    Write(' По модулю ');
    if      r1>-r2 then WriteLn('больше Avg(p)')
    else if r1<-r2 then WriteLn('больше Avg(n)')
    else WriteLn('Avg(p) = Avg(n)');
  end;
end.

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

В этом коде дан массив X(15), и мы ищем среднее арифметическое положительных и отрицательных элементов массива R1 и R2.

Создаем переменные:
- x - массив из 15 целых чисел;
- i, n1, n2, s1, s2 - целочисленные переменные для подсчета количества и суммы положительных и отрицательных чисел;
- r1, r2 - переменные типа Real для хранения среднего арифметического.
Заполняем массив x случайными числами.
С помощью цикла проходим по всем элементам массива x.
Если элемент больше нуля, увеличиваем счетчик n1 и сумму s1 на этот элемент.
Если элемент меньше нуля, увеличиваем счетчик n2 и сумму s2 на этот элемент.
Выводим среднее арифметическое положительных чисел (r1).
Выводим среднее арифметическое отрицательных чисел (r2).
Выводим сообщение, указывающее, какие числа по модулю больше.
Если n1 и n2 больше нуля, то выводим сообщение, указывающее, какие числа по модулю больше.
Конец программы.