Задача: найти значение минимального элемента в одномерном массиве, который заполняется случайными числами. max_min;
var M: [1..10] of ;
i, min: integer;
begin
randomize;
for i: = 1 10 do
begin
: = random (10);
write (M[i],' ');
end;
min: = M[1];
for i: = 2 to 10 do
if (min > M[i]) then : = M[i];
end;
writeln (' ');
(min)
end.
program max_min;
var M:array [1..10] of integer;
i, min: integer;
begin
randomize;
for i := 1 to 10 do
begin
M[i] := random (10);
write (M[i],' ')
end;
min := M[1];
for i := 2 to 10 do
if (min > M[i]) then min := M[i];
writeln (' ',min)
end.