Даны естественное число x и целые числа a, a,..., a. Отыскать:

program zz1;

const x = 14;  //задаем количество частей в массиве

var  i, max1, min:integer; // задаем переменные целого типа

a:array [1..x] of integer;

begin

for i:=1 to x do // записываем в массив числа случайным образом

a[i]:=random(201)-60;

for i:=1 to x do  //выводим массив на экран

write(a[i], );

writeln;    // перебегаем на новую строчку для вывода ответа

max1:=0;

for i:=1 to x do  // обретаем наибольший элемент

if a[i]gt;max1 then  max1:=a[i];

writeln( максимальный элемент = ,max1); // выводим ответ

min:=1000000; //задаем изначальное значение для малого элемента

for i:=x downto 1 do  // организуем цикл, в котором переберем все числа массива

if a[i] lt; min then min:=a[i]; //проверяем, если число из массива меньше малого, то записываем его в малое

write(малый элемент = , min);  // выводим ответ

end.