Имеются кувшин емкостью 8 л, заполненный квасом, и два пустых кувшина ёмкостью 3 л и 5 л. запишите алгоритм, выполняв который можно разделить квас поровну между двумя людьми (разрешается пользоваться только этими тремя кувшинами)

"Я самый главный!"- заявил монитор, на мне возникает информация и изображения.

"Нет, я самая главная,- сказала клавиатура, без меня никак, не сможешь ничего оттреадактировать,вбить информацию в память, общаться - да вообще ничего!"

Но память возразила : " Ээх вы, я тут главнее всех, как вы без меня! Ничего не сохранишь, не запомнишь, да в общем без меня очень сложно что-то представить!"

"Да вы что? - начал возмущаться процессор, - Главных не должно быть, мы все представляем собой одно целое!" Так они и воссоединились и представляют собой одну частичку главного . 

В задании требуется ввести код программы, описанной на странице 228 учебника и надо изменить программу так, чтобы она считала отклонения средней температуры каждого месяца от среднегодовой величины, должно получиться так:

Program Temperature;
var T: array[1..12] of real;
Dt:array[1..12] of real;
i:integer; Tsred:real;
begin
  for i:=1 to 12 do begin
    write('T[',i:2,'] = ');
    readln(T[i]);
  end;
  Tsred:=0;
  for i:=1 to 12 do
    Tsred:=Tsred+T[i];
  Tsred:=Tsred/12;
  Writeln('Среднегодовая температура = ',Tsred:6:2);
  for i:=1 to 12 do begin
    Dt[i]:=T[i]-Tsred;
    writeln('Dt[',i:2,']',Dt[i]:6:2);
  end;
end.

Ну а результаты получите, когда запустите программу.