Задание:
Пожалуста помогитее! Мальчик Сбой и профессор Фон Вокензер решили создать баскетбольную команду. Для этого им необходимо найти еще трех игроков. Они разместили объявление в интеренте вместе с анкетой. Но кандидатов оказалось слишком много. Профессор фон Вокензер решил, что они возьмут трех самых высоких игроков, то успех гаранторован. В первой строке вводится единственное число N — количетво людей, пожавших заявку. Во второй строке вводится N чисел аi — рост i-кандидата. Выведите росты тех игроков которые примут участие в открытии союза.
Решение:
Program Pr1; uses crt; var mas: array[byte] of integer; i,n,h: integer; Beginclrscr; 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] Знаете другой ответ?