Паскаль. температура измеряется каждые 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

1.

использовать Чертежник

алг

нач

опустить перо

нц 6 раз

сместиться на вектор (0,1)

сместиться на вектор (6,0)

сместиться на вектор (0,-1)

сместиться на вектор (-6,0)

сместиться на вектор (0,1)

кц

поднять перо

сместиться в точку (-1,-1)

кон

2.

использовать Чертежник

алг

нач

опустить перо

нц 6 раз

сместиться на вектор (0,6)

сместиться на вектор (1,0)

сместиться на вектор (0,-6)

сместиться на вектор (-1,0)

сместиться на вектор (1,0)

кц

поднять перо

сместиться в точку (-1,-1)

кон

3.

использовать Чертежник

алг

нач

опустить перо

нц 6 раз

сместиться на вектор (0,1)

сместиться на вектор (6,0)

сместиться на вектор (0,-1)

сместиться на вектор (-6,0)

сместиться на вектор (0,1)

кц

поднять перо

сместиться в точку (0,0)

опустить перо

нц 6 раз

сместиться на вектор (0,6)

сместиться на вектор (1,0)

сместиться на вектор (0,-6)

сместиться на вектор (-1,0)

сместиться на вектор (1,0)

кц

поднять перо

сместиться в точку (-1,-1)

кон

Объяснение:

Смотри картинки

1. Например : Домашняя работа , бизнес план

2. Сообщите учителю или своим родителям, чтобы они связались с человеком который скопировал у вас работу

3.  Присвоение авторства (плагиат), если это деяние причинило крупный ущерб автору или иному правообладателю, -

наказывается штрафом в размере до двухсот тысяч рублей или в размере заработной платы или иного дохода осужденного за период до восемнадцати месяцев, либо обязательными работами на срок до четырехсот восьмидесяти часов, либо исправительными работами на срок до одного года, либо арестом на срок до шести месяцев.