Question

Задан массив из случайных чисел из ста элементов.Найти минимальный элемент массива.Составить блок-схему.

Answer 1

var
m: array[1..100] of integer;
x,min:integer;
begin
 randomize;
for x:=1 to 100 do
 m[x]:=random(20);
for x:=1 to 100 do
write(m[x]:5);
writeln;
min:=m[1];
for x:=2 to 100 do
 if m[x] < min then 
min:=m[x];
writeln('Минимум = ', min);
end.