Question

Задача: найти значение минимального элемента в одномерном массиве, который заполняется случайными числами.
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.

Answer 1

Ответ:

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.