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

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

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


See also: