const
n = 100;

type
mas = array[1..n] of integer;

var
a: mas;
i: integer;

function min(c: mas): integer;
var
min_el, i: integer;
begin
min_el := c[1];
for i := 2 to n do
if c[i] < min_el then min_el := c[i];
min:=min_el;
end;

begin
randomize;
for i := 1 to n do
a[i] := random(100)-50;
writeln('massiv a');
for i := 1 to n do
write(a[i],' ');
writeln;
writeln('Min el in massiv a= ',min(a));
end.

Комментарии(12)

Cредняя оценка 3.4
Оценило: 10 человек
Прочитало: 79 человек,181 раз