Паскаль. Температура измеряется каждые 3 часа. Определить наивысшую среднесуточную температуру за прошедшую неделю. Для заполнения таблицы температур используйте датчик случайных чисел

Программа: const m=7; n=8; var t:array[1..m,1..n] of integer; i,j:integer; s,max:real; begin Randomize; writeln('Результаты измерений:'); writeln('   0   3   6   9  12  15  18  21'); writeln(' -------------------------------'); for i:=1 to m do  begin  for j:=1 to n do   begin    t[i,j]:=random(10)-5;    write(t[i,j]:4);   end;   writeln;  end; max:=-200; for i:=1 to m do  begin  s:=0;  for j:=1 to n do s:=s+t[i,j];  s:=s/n;  if s>max then max:=s;  end; writeln('max = ',max:5:1); end. Пример: Результаты измерений:    0   3   6   9  12  15  18  21  -------------------------------   -4   4   2  -4   0  -1   4   1   -5  -2   2   3   4   0  -5  -3   -4  -4   2   0  -3  -1  -1  -4   -5  -3   4  -3  -4   1  -4   3    4  -1  -5  -1  -5   2   1  -1   -1   2   3  -1  -5   3   2   4    1  -5  -5  -1   0   0   1   2 max =   0.9