PascalABC
Программа выводит на экран N случайных чисел (N вводится с клавиатуры), а так же максимальное и минимальное из них.
СРОЧНО
Программа выводит на экран N случайных чисел (N вводится с клавиатуры), а так же максимальное и минимальное из них.
СРОЧНО
More Questions From This User See All
Answers & Comments
begin
max:=0;
min:=150;
randomize;
readln(n);
for i:=1 to n do
begin
a:=random(100);
write(a,' ');
if max<a then max:=a;
if min>a then min:=a;
end;
writeln;
writeln('Max: ',max);
write('Min: ',min);
end.