Question

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

Answer 1

Программа:
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