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

Question

Информатика

Иулиана

16 марта, 02:26

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

+3

Ответы (1)

Знаете ответ на вопрос?

Иакинф · 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.