Question

Напишите самостоятельно программу нахождения наименьшего элемента массива и его номера. Массив задаётся случайным образом из 20 чисел, взятых в диапазоне от -50 до 50.​

Answer 1

var

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

min,i:integer;

begin

min:=0;

for i:=1 to 20 do

 begin

 a[i]:=random(101)-50;

 if a[i]<min then

 min:=a[i];

 end;

writeln('Сгенерированный массив: ', a);

writeln('Минимальный элемент массива: ', min);

end.