ИЗВЕСТНЫ РЕЗУЛЬТАТЫ СОРЕВНОВАНИЯ ПО ПРЫЖКАМ В ВЫСОТУ И КОЛ-ВО УЧЕНИКОВ НАЙТИ И ВЫВЕСТИ САМЫЙ ЛУЧШИЙ РЕЗУЛЬТАТ (ПАСКАЛЬ)

uses crt;

const

n=5;

type

mass=array[1..n] of real;

var

i,j:integer;

amax:real;

a:mass;

begin

clrscr;

write('Введите числа через пробел ');

for i:=1 to n do

read(a);

for i:=1 to n do

for j:=i to n do

if (a<a[j])and(a[j]>amax) then amax:=a[j];

write('Лучший результат ',amax);

readkey;

end.

Объяснение: