По условиям чемпионата 2003 года из Премьер-лиги выбывают две последние в турнирной таблице команды
По условиям чемпионата 2003 года из Премьер-лиги выбывают две последние в турнирной таблице команды. Составьте программу, определяющую обе команды, выбывающие из Премьер-лиги.
Program Premier_liga;
Var B: array [1..10] of integer;
Team: array [1..10] of string;
I, min1, min2, buff: integer;
BEGIN
randomize;
writeln ('Введите названия команд и полученные ими очки');
for I:=1 to 10 do begin
write (I, ' - Название: '); Readln(Team[I]);
write ('Очки: '); Readln(B[I])
end;
if B[1] < B[2] then begin
min1 := 1;
min2 := 2;
end
else begin
min1 := 2;
min2 := 1;
end;
for I:=3 to 10 do
if B[I] < B[min1] then begin
buff := min1;
min1 := I;
if B[buff] < B[min2] then
min2 := buff;
end
else
if B[I] < B[min2] then
min2 := I;
writeln ('Выбывают команды:');
writeln ('Команда №', min1, '" ', Team[min1], '", ', B[min1], ' очков.');
writeln ('Команда №', min2, '" ', Team[min2], '", ', B[min2], ' очков.')
END.