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

Deloroza Deloroza    1   14.04.2020 23:03    0

Ответы
liliiayukhno1 liliiayukhno1  13.10.2020 06:29

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

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика