ДЗ. Алгоритмы действий над элементами двумерного массива Задача 1. В течение недели измерялась температура три раза в день: утром, в обед и вечером. Показания записали в таблицу размерностью 7х3. Определить среднюю температуру ...

var  a: array[1..7, 1..3] of integer;  s, i, j: integer;begin  for i:=1 to 7 do     for j:=1 to 3 do       readln (a[i, j]);  for i:=1 to 7 do  begin    s:=0;    for j:=1 to 3 do      s:=s+a[i,j];    writeln('Средняя температура для дня №', i, ' равна ', s/3);  end;end.

var     a: array[1..7, 1..3] of integer;     s, i, j: integer; begin          for i := 1 to 7 do         for j := 1 to 3 do             a[i, j] := random(100);          for i := 1 to 7 do     begin         s := 0;         for j := 1 to 3 do             s := s + a[i, j];                      writeln('День - ', i, ', Средняя температура = ', (s / 3):2:2, ' гр.');     end; end.