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

Информатика 9 класс Семакин ФГОС

§ 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.


Понравилась статья? Поделиться с друзьями: