Всі умови | Умова: Дано дійсні числа а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.