Розв’язок задачі з Абрамова №272

Всі умови | Умова: Дано дійсні числа а1901, a1902, ..., а1950 -кількість опадів (у міліметрах), що випали в Москві протягом перших 50 років нашого століття. Треба обчислити середню кількість опадів і відхилення від середнього для кожного року. (С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №272)

program Pr272;
const
  first = 1902;
  last = 1950;

var
  a : array[first..last] of integer;
  i, s : integer;
  middle : real;
begin
  s := 0;
  for i := first to last do
  begin
    write('a[',i,'] = ');
    readln(a[i]);
    s := s + a[i];
  end;

  middle :=  s / (last - first);
  writeln('Middle: ', middle:5:2);
  writeln('Deviation: ');
  for i := first to last do
  begin
    writeln('A',i,': ', a[i] - middle :5:2);
  end;

  readln;
end.