Задан массив из случайных чисел из ста элементов.Найти минимальный элемент массива.Составить блок-схему.
Задан массив из случайных чисел из ста элементов.Найти минимальный элемент массива.Составить блок-схему.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы