Pascal. Задача 4-11

В массиве из 12 элементов хранится количество осадков в каждом месяце. Вывести таблицу из 3 столбцов, где для каждого месяца вывести его номер, количество осадков в нем и отклонение количества осадков в этом месяце от среднегодового.

Значения количества осадков по месяцам:


(39.0, 35.1, 42.6, 45.5, 79.9, 71.1, 84.3, 44.7, 54.5, 44.8, 40.2, 45.8)

Примечание: Для вывода таблицы использовать форматированный вывод.

Решение

Const
  N = 12;
var
  i: integer;
  sum : real;
  A : array[1..N] of real = (39.0, 35.1, 42.6, 45.5, 79.9, 71.1, 84.3, 44.7, 54.5, 44.8, 40.2, 45.8);
begin
  sum := 0;
  for i := 1 to N do begin
      sum := sum + A[i];
    end;
  sum := sum / N;
  write('N':3);
  write('Осадки':8);
  writeln('Откл.':8);
  for i := 1 to N do begin
    write(i:3);
    write(A[i]:8:1);
    writeln((sum - A[i]):8:1);
  end;
end.

◄▲►