Question

Программа Pascal найти наименьшее и наибольшее число из 20 случайных чисел
Цикл со счетчиком
​

Answer 1

var i,x,min,max:integer;

begin

writeln('Наибольшее и наименьшее из...');

x:=random(100);

writeln(x);

min:=x;

max:=x;

for i:=2 to 20 do

begin

x:=random(100);

writeln(x);

if x>max then

max:=x;

if min>x then

min:=x

end;

writeln('Наибольшее 》 ',max);

write('Наименьшее 》 ',min)

end.