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

Question

Информатика

Инесса

3 ноября, 15:55

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

+5

Ответы (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.