PascalABC Программа выводит ** экран N случайных чисел (N вводится с клавиатуры), а так...

Question

PascalABC
Программа выводит на экран N случайных чисел (N вводится с клавиатуры), а так же максимальное и минимальное из них.
СРОЧНО

Answer 1

Var max,min,i,n,a:integer;
begin
max:=0;
min:=150;
randomize;
readln(n);
for i:=1 to n do
begin
a:=random(100);
write(a,' ');
if maxif min>a then min:=a;
end;
writeln;
writeln('Max: ',max);
write('Min: ',min);
end.