Программа Pascal найти наименьшее и наибольшее число из 20 случайных чисел. СРОЧНО

Ответ:

Объяснение:

var a:array[1..20]of integer;

   i,min,max:integer;

begin

for i:=1 to 20 do

read(a[i]);

min:=a[1]; max:=a[1];

for i:=20 downto 2 do

begin

    if a[i]>max then max:=a[i];

    if a[i]<min then min:=a[i];

end;

write('Максимальное число - ',max);

write('Минимальное число - ',min);

end.