Составить программу которая позволяет найти наименьший элемент случайно сформированного одномерного массива

Question

Информатика

Альфред

13 июля, 18:37

Составить программу которая позволяет найти наименьший элемент случайно сформированного одномерного массива

+5

Ответы (1)

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

Агрипинка · Answer 1

Easy

const

n=10;

r=99;

var

i:integer;

min:integer;

m:array[1 ... n] of integer;

begin

randomize;

min:=maxint; / / Или intmax

for i:=1 to n do

begin

m[i]:=random (99) + 1; / / заполняем случайно от 1 до 99

write (m[i],' ') ;

end;

writeln;

for i:=1 to n do if min>m[i] then min:=m[i];

write (min) ;

end.