Question

Составьте программу которая вычисли наименьшее из 20 чисел! На Паскале.

Answer 1

Ответ:

Числа задаются случайным образом на случайном промежутке. Если требовался ввод с клавиатуры, напишите об этом.

var a: array[1..20] of integer;

var i,min: integer;

begin

randomize();

min:=1;

for i:=1 to 20 do  

 begin

 a[i]:=random(-100,100);

 write(a[i],' ');

 if (a[i]<a[min]) then min:=i;

 end;

writeln();

writeln('Меньшее из 20 чисел равно ',a[min]);

end.