Напишите программу на паскале, которая выбирает из списка футболистов лучшего бомбардира – того, кто забил наибольшее количество мячей. Если несколько человек забили одинаковое наибольшее количество мячей, нужно вывести их имена и фамилии в том порядке, в котором они встречаются в исходном списке.
Входные данные
В первой строке записано количество футболистов в списке N . Следующие N строк имеют формат:
<фамилия> <имя> <год рождения> <число забитых мячей>
Выходные данные
Программа должна вывести фамилии и имена тех футболистов, которые забили наибольшее количество мячей. В последней строке программа выводит количество голов, забитых каждым из этих футболистов.
Входные данные
В первой строке записано количество футболистов в списке N . Следующие N строк имеют формат:
<фамилия> <имя> <год рождения> <число забитых мячей>
Выходные данные
Программа должна вывести фамилии и имена тех футболистов, которые забили наибольшее количество мячей. В последней строке программа выводит количество голов, забитых каждым из этих футболистов.
More Questions From This User See All
Answers & Comments
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<g[i]) or (i=1) then
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.