Question

N учеников проходили тестирование по М темам какого-либо предмета. Сколько очков набрал каждый ученик по всем темам? Вычислить средний балл, полученный учениками, и разницу между лучшим результатом и средним баллом

Answer 1

uses crt;
var r:array[1..100]of integer;
i,n,m,a,max:integer;
s:real;
 
begin
 clrscr;
 write('Количество участников N-> ');
 readln(N);
 write('Количество тестов M -> ');
 readln(M);
 s:=0;
 for i:=1 to N do
 begin
  write('Введите результаты ',i,'-го ученика -> ');
  r[i]:=0;
  for i:=1 to M do
  begin
   read(a);
   r[i]:=r[i]+a;
  end;
  s:=s+a;
  readln;
 end;
 s:=s/N;
 writeln('Средний балл - ',s:0:2);
 max:=1;
 for i:=1 to N do if r[i]>r[max] then max:=i;
 writeln('MAX = ',r[max]);
 writeln('Разница - ',(r[max] - s):0:2);
 readln;
end.