В течение недели измерялась температура три раза в день: утром, в обед и вечером. Показания записали в таблицу (программа Паскаль)

Question

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

Answer 1

USES Crt;
 VAR
   T:ARRAY[0..7,0..3] OF INTEGER;
   I,J:BYTE;   S:INTEGER;   ST:REAL;   A:STRING[12];
 BEGIN
   ClrScr;   WriteLn;
   { Заполнение таблицы }
   FOR I:=1 TO 7 DO Begin
     WriteLn(' Введите показания за ',I,' день');
     FOR J:=1 TO 3 DO Begin
       CASE J OF
         1: A:=' Утром - ';
         2: A:=' В обед - ';
         3: A:=' Вечером - ';
       End;
       Write(A);    ReadLn(T[I,J]);
     End;
   End;     WriteLn;
     { Подсчет средней температуры за каждый день }
   FOR I:=1 TO 7 DO Begin
       S:=0;
       FOR J:=1 TO 3 DO
         S:=S+T[I,J];
       ST:=S/3;
       WriteLn('Средняя температура за ',I,' день = ',ST:4:1);
    End;
 END.