§ 20 Поиск наибольшего и наименьшего элементов массива ГДЗ по Информатике 9 класс. Семакин
5. По условиям чемпионата 2003 года из премьер-лиги выбывают две последние в турнирной таблице команды. Составьте программу, определяющую обе команды, выбывающие из премьер-лиги.
Ответ
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.