Question

Отдаю все, что есть. Нужно две программы в паскале 1) (изначально вводится <фамилия> <имя> <голы>) вывести фамилию, имя футболиста, забившего наибольшее количество голов и количество забитых голов. Пр. Иванов Василий 25 2) Вывести в алфавитном порядке фамилии и имена всех футболистов, которые забили хотя бы один гол.(не более 100 футболистов). Пр. Васильев Иван Иванов Василий Кутузов Михаил

Answer 1

Держи! Во втором варианте не учитывал что могут быть одинаковые имена, но разные фамилии и поэтому возможно некоторое нарушение в сортировке. Торопился, так как тебе видимо надо побыстрее. Но если надо, то реализую :) 

Answer 2

Привет! Я могу помочь с написанием этих двух программ на языке Pascal.

Вот первая программа:

luaCopy code
program football;

type
  player = record
    surname: string;
    name: string;
    goals: integer;
  end;

var
  players: array[1..100] of player;
  max_goals: integer;
  max_goals_player: player;
  n, i: integer;

begin
  write('Введите количество футболистов: ');
  readln(n);

  for i := 1 to n do
  begin
    write('Введите фамилию, имя и количество голов: ');
    readln(players[i].surname, players[i].name, players[i].goals);

    if players[i].goals > max_goals then
    begin
      max_goals := players[i].goals;
      max_goals_player := players[i];
    end;
  end;

  writeln('Футболист, забивший наибольшее количество голов:');
  writeln(max_goals_player.surname, ' ', max_goals_player.name, ' ', max_goals_player.goals);
end.

Вот вторая программа:

arduinoCopy code
program football;

type
  player = record
    surname: string;
    name: string;
    goals: integer;
  end;

var
  players: array[1..100] of player;
  n, i, j: integer;
  temp: player;
  has_goals: boolean;

begin
  write('Введите количество футболистов: ');
  readln(n);

  for i := 1 to n do
  begin
    write('Введите фамилию, имя и количество голов: ');
    readln(players[i].surname, players[i].name, players[i].goals);
  end;

  for i := 1 to n - 1 do
  begin
    for j := i + 1 to n do
    begin
      if players[i].surname > players[j].surname then
      begin
        temp := players[i];
        players[i] := players[j];
        players[j] := temp;
      end;
    end;
  end;

  writeln('Футболисты, забившие хотя бы один гол (в алфавитном порядке):');
  has_goals := false;
  for i := 1 to n do
  begin
    if players[i].goals > 0 then
    begin
      writeln(players[i].surname, ' ', players[i].name);
      has_goals := true;
    end;
    if i = 100 then break;
  end;
  if not has_goals then writeln('Ни один футболист не забил гол.');
end.

Надеюсь, это поможет! Если у вас есть какие-то вопросы, не стесняйтесь спросить!