• вывести фамилии всех футболистов которые забили больше двух голов. Паскаль

Ответы 1

  • Если вводить футболистов с клавиатуры и их не больше, например, 25 человек, то программа может быть такая:Program futbol;var fio: array [1..25] of string;      gol: array [1..25] of integer;       i,j: integer;       f: string;begin   writeln ('Введите фамилии игроков, забивших голы');   writeln ('Окончание ввода - пустая строка');   j:=0;repeat      readln(f)   newfio:=true;   for i:= 1 to j do begin       if fio[i]=f then begin             gol[i]=gol[i]+1;              newfio:=not newfio;             end;       if newfio then begin           j:=j+1;           fio[j]:=f;   end;while not f='';for i:= 1 to j do begin  if gol[i]>2 then writeln fio[i];end;end.
    • Автор:

      august66
    • 5 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years