Напишите программу ** паскале, которая выбирает из списка футболистов лучшего бомбардира...

Question

Напишите программу на паскале, которая выбирает из списка футболистов лучшего бомбардира – того, кто забил наибольшее количество мячей. Если несколько человек забили одинаковое наибольшее количество мячей, нужно вывести их имена и фамилии в том порядке, в котором они встречаются в исходном списке. Входные данные В первой строке записано количество футболистов в списке N . Следующие N строк имеют формат: <фамилия> <имя> <год рождения> <число забитых мячей> Выходные данные Программа должна вывести фамилии и имена тех футболистов, которые забили наибольшее количество мячей. В последней строке программа выводит количество голов, забитых каждым из этих футболистов.

Answer 1

var

n,i,j,max,k: Integer;

lname, name: array [1..100000] of String;

y,g,a:array [1..100000] of longint;

begin

Read(n);

for i:=1 to n do

begin

read(lname[i]);

read (name[i]);

read(y[i],g[i]);

if (max

max:=g[i];

end;

for i:=1 to n do

if g[i]=max then

begin

writeln(lname[i], ' ', name[i]);

j:=j+1;

a[j]:=i;

end;

for i:=1 to j do

write(g[a[i]], ' ');

end.

Comments

После ввода первой строки [с данными футболиста] программа вылетает и пишет runtime error 106