Question

Помогите, паскаль, много баллов! Введите с клавиатуры фамилии 4 учеников. Для каждого ученика ввести оценки по трем предметам ( можно с помощью генератора случайных чисел). Вывести на экран результаты успеваемости с подсчетом средних баллов по ученикам и предметам

Answer 1

Решение - п прилагаемом файле

Answer 2

Конечно, я могу помочь вам с этим заданием на языке Паскаль. Ниже приведен пример кода, который выполняет требуемые операции:

pascalCopy code
program Успеваемость;

const
  УЧЕНИКИ = 4;
  ПРЕДМЕТЫ = 3;

type
  ТаблицаОценок = array[1..УЧЕНИКИ, 1..ПРЕДМЕТЫ] of integer;

var
  Оценки: ТаблицаОценок;
  Фамилии: array[1..УЧЕНИКИ] of string;
  Ученик, Предмет: integer;
  СреднийБаллПоУченикам: array[1..УЧЕНИКИ] of real;
  СреднийБаллПоПредметам: array[1..ПРЕДМЕТЫ] of real;

procedure ВвестиОценки;
var
  i, j: integer;
begin
  for i := 1 to УЧЕНИКИ do
  begin
    writeln('Введите фамилию ученика ', i, ':');
    readln(Фамилии[i]);
    for j := 1 to ПРЕДМЕТЫ do
    begin
      writeln('Введите оценку ученика ', Фамилии[i], ' по предмету ', j, ':');
      readln(Оценки[i, j]);
    end;
  end;
end;

procedure ПодсчитатьСреднийБаллПоУченикам;
var
  i, j: integer;
  Сумма: integer;
begin
  for i := 1 to УЧЕНИКИ do
  begin
    Сумма := 0;
    for j := 1 to ПРЕДМЕТЫ do
      Сумма := Сумма + Оценки[i, j];
    СреднийБаллПоУченикам[i] := Сумма / ПРЕДМЕТЫ;
  end;
end;

procedure ПодсчитатьСреднийБаллПоПредметам;
var
  i, j: integer;
  Сумма: integer;
begin
  for j := 1 to ПРЕДМЕТЫ do
  begin
    Сумма := 0;
    for i := 1 to УЧЕНИКИ do
      Сумма := Сумма + Оценки[i, j];
    СреднийБаллПоПредметам[j] := Сумма / УЧЕНИКИ;
  end;
end;

procedure ВывестиРезультаты;
var
  i, j: integer;
begin
  writeln('Результаты успеваемости:');
  writeln('==========================');
  writeln('Фамилии учеников:');
  for i := 1 to УЧЕНИКИ do
    writeln(Фамилии[i]);
  writeln('--------------------------');
  writeln('Средний балл по ученикам:');
  for i := 1 to УЧЕНИК