Cклавиотуры вводится натуральное число, которое определяет кол-во вводимых чисел с клавиотуры целых значений. пользователь вводит указанное кол-во целых значений.а программа выводит самое большое и самое маленькое значение из вводмимых. напишите программу на !
var a,min,max,i,n: integer;
begin
readln(n);
readln(a);
min:=a;
max:=a;
for i:=2 to n do
begin
readln(a);
if a>max then max:=a;
if a<min then min:=a;
end;
writeln('min=',min);
write('max=',max);
end.
//Внимание! Если программа не работает, обновите версию!
begin
var mas:= readarrinteger('Введите элементы массива :',readinteger('n='));
Writeln('Найбольшое число =',mas.Max);
Writeln('Найменьшее число=',mas.Min);
end.