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

Сегодня примерно в 11:21 на наш email ящик поступил вопрос, который наши модераторы от-несли к категории Разное. Постараемся дать на него полноценный ответ.

Тема вопроса с пояснением

ПАСКАЛЬ
По условиям чемпионата 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]end;
h:= a[2];
c:= 2;
for i:= 3 to n do begin if a[i]end;
writeln (v,c); {где "v" и "c" номера выбывших команд}
end.