[k1ske]

Задание
N учеников проходили тестирование,выполнив M тестов по какому-либо предмету.Сколько очков набрал каждый ученик по всем темам?Вычислить средний балл,полученный учениками, и разницу между лучшим результатом и средним баллом(забить информацию нужно с помощью компонента record,вообще понятия не имею про этот компонент,читаю сижу)

сдать нужно завтра help

[Assistant]

это не компонент, а запись типа record:

Код:

TStudent = record
  bal: integer;
  name: string;
  .....
end;

[lmikle]

ага, а еще массивы и циклы.

типы данных будут примерно такими:

Код:

const
  N = 10; // кол-во студентов
  M = 20; // кол-во тестов

type
  TStudent = record
    FIO : String[256]; // Pascal-строка. Для протсоты сохраниеия в файл
    Test : Array [1..M] Of Boolean; // Прав. или нет ответ. Прав. ответ = 1 бал
  end;

var
  Students : Array [1..N] Of TStudent;

function GetTestResult(AStudent : TStudent) : Integer;
begin
  // Кол-во баллов для студента
end;

function GetAvg : Double;
begin
  // средний бал
end;

function GetMaxDiff(Avg : Double) : Double;
begin
  // Max отклонение
end;

var
  AAvg : Double;
  ADiff : Double;

begin
  // Здесь надо ввести данные...
  ...

  // теперь  считаем
  AAvg := GetAvg;
  ADiff := GetMaxDiff(AAvg);
 
  // Ну и выводим на экран
  WriteLn('Средний бал = ' + FloatToStr(AAvg));
  WriteLn('Max отклонение = ' + FloadToStr(ADiff));
end;

Ну реализацию функций сам напишешь. Или в работу...