Question

ПАСКАЛЬПо условиям чемпионата 2003 года из премьер-лиги выбывают две последние в турнирной таблице команды. Составьте программу, определяющую обе команды, выбывающие из премьер-лиги.

Answer 1

Можно с помощью массива

program m1;
var a: array[1..10] of integer;
     i,n,k,h,v,c: integer;
begin
readln (n);
for i:= 1 to n do readln(a[i]);
k:= a[1];
v:= 1;
for i:= 2 to n do begin if a[i]<k then k:= a[i]; v:= i;
end;
h:= a[2];
c:= 2;
for i:= 3 to n do begin if a[i]<h then h:= a[i]; c:= i;
end;
writeln (v,c);       {где "v" и "c" номера выбывших команд}
end.