Главная » Помощь в учебе » Школьные знания, ответы и решения школьных заданий » Информатика

По условиям чемпионата 2003 года из Премьер-лиги выбывают две последние в турнирной таблице команды

Нашли ошибку? Напишите нам
0.0/5, Голосов: 0

Учебник по Информатике 9 класс Семакин

По условиям чемпионата 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.