{* Задача 422 *}

Unit ZADACH422;
Interface
Implementation
Begin
 writeln('Известны результаты сдачи трех экзаменов десятью студентами. Найти средний балл каждого студента и общий средний балл. Точность среднего балла – два знака после запятой. ');
End.

Program zadach422;

Uses zadach422.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Const {* Константы *}
  n = 3;
  m = 10;
  Label 1;
Var {* Объявление переменных *}
  Fam : Array[1..n] Of String;
  X   : Array[1..n] Of String;
  Y   : Array[1..n] Of real;
  Oc  : Array[1..n, 1..m] Of integer;
  I   : integer;
  j   : integer;
  s   : integer;
Begin
  Clrscr; {* Очистка экрана *}
  S := 0;
  For i := 1 To n Do {* Увеличиваем i от 1 до n с шагом 1 *}
  Begin
    Y[i] := 0;
    Writeln(‘Введите фамилию ИО студента’);
    Readln(fam[i]);
    For j := 1 To m Do {* Цикл для j => [1 .. m] *}
    Begin
      1 : writeln(‘Введите оценку’, I,’ –го студента за’, j’ –ый экзамен’);
      Readln(oc[I, j]);
      If oc [I, j] > 5 Then
      Begin
        writeln(‘Оценка введена не верно’);
        Goto 1;
      End;
      Y[i] := y[i] + oc[I, j];
      s := s + oc[i, j];
    End;
    Y[i] := y[i] / m;
  End;
  Writeln; {* Пропускаем одну строку *}
  For i := 1 To n Do {* Увеличиваем i от 1 до n с шагом 1 *}
  Begin
    Writeln(‘fam[i],’  средний балл ‘, y[i] : 2:1);
  End;
  Writeln(‘  Средний балл всего  ‘, s / m/n : 2:1);
End.