01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / задача с футболистами

Задан массив f[m] (m<=25), содержащий сведения о футболистах: фамилию, год рождения, количество забитых голов, амплуа игрока (защитник, полузащитник, нападающий). Определить самых результативных защитника, полузащитника и нападающего, а также самых результативных футболистов в группе свыше 30 лет

и в группе до 20 лет.

program ex4;

type

players=record

name: string;

year: integer;

goal: integer;

ampl: char

end;

var f: array [1..25] of players;

var s: players;

var i,m,kb,kh,kf: integer;

begin

write('Введите количество игроков m='); readln(m);

writeln('Введите данные для каждого из ',m,' игроков (имя, г/р, голы, амплуа):’);

for i:=1 to m do

begin

with s do

begin

readln(name); readln(year); readln(goal); readln(ampl)

end;

f[i]:=s

end;

writeln('Список игроков');

for i:=1 to m do

writeln(f[i].name:20,' ',f[i].year:4,' ',f[i].goal:3,' ',f[i].ampl);

kb:=1;

for i:=2 to m do

if f[i].ampl = 'b' then

if f[i].goal > f[kb].goal then kb:=i;

writeln('Самый результативный защитник');

writeln(f[kb].name:20,' ',f[kb].year:4,' ',f[kb].goal:3,' ',f[kb].ampl);

kh:=1; kf:=1;

end.