Пожалуста помогитеее!!!!!!!!Мальчик Сбой и профессор Фон Вокензер решили создать баскетбольную команду. Для этого им необходимо найти еще трех игроков. Они разместили объявление в интеренте вместе с анкетой. Но кандидатов оказалось слишком много. Профессор фон Вокензер решил, что они возьмут трех самых высоких игроков, то успех гаранторован. В первой строке вводится единственное число N - количетво людей, пожавших заявку. Во второй строке вводится N чисел аi - рост i-кандидата. Выведите росты тех игроков которые примут участие в открытии союза.

1

Ответы и объяснения

2012-11-19T14:53:37+04:00

Program Pr1;
uses crt;
var mas:array[byte] of integer;
i,n,h:integer;
Begin
clrscr;
writeln('Vvedie n');
readln(n);
for i:=1 to n do begin
writeln('Vvedite rost ',i,' -ogo kandidata');
readln(mas[i]);
end;
for i:=1 to n do if mas[i]<mas[i+1] then begin
h:=mas[i];
mas[i]:=mas[i+1];
mas[i+1]:=h;
end;
for i:=1 to 3 do writeln(mas[i]);
end.