Question

Группа из 10 учащихся сдавала экзамен по 4 предметам. Результаты экзаменов записали в таблицу размерностью 10х4 (программа Паскаль)

Answer 1

USES Crt;
 VAR
   E:ARRAY[0..10,0..4] OF INTEGER;
   I,J:BYTE;   S:INTEGER;   SB:REAL;   A:STRING[16];
 BEGIN
   ClrScr;   WriteLn;
   { Заполнение таблицы }
   FOR I:=1 TO 10 DO Begin
     WriteLn(' Введите оценки ',I,' учащегося');
     FOR J:=1 TO 4 DO Begin
       CASE J OF
         1: A:=' Математика - ';
         2: A:=' Физика - ';
         3: A:=' Химия - ';
         4: A:=' Информатика - ';
       End;
       Write(A);   ReadLn(E[I,J]);
     End;
   End;     WriteLn;
     { Подсчет среднего балла по каждому предмету.  Циклы меняются местами.' }
    FOR J:=1 TO 4 DO Begin
       S:=0;
       FOR I:=1 TO 10 DO
         S:=S+E[I,J];
       SB:=S/10;
       CASE J OF
          1: A:=' математике - ';
          2: A:=' физике - ';
          3: A:=' химии - ';
          4: A:=' информатике - ';
       End;
       WriteLn(' Средний балл по ',A,' = ',SB:4:1);
     End;
   END.