Төмендегі модельді жасау үшін қолданған рет ретімен жазыныз

143

412

Посмотреть ответы 1

Ответы на вопрос:

рай34

Информатика

4,6(13 оценок)

Если вводить футболистов с клавиатуры и их не больше, например, 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.