Блоги Apтём [Анекдоты и Шутки]
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)
starstarstarstarstar
Cредняя оценка 3.4
Оценило: 10 человек
Прочитало: 79 человек,181 раз

Твитнуть
→ Дневник artemunaz
→ Все дневники
  Меню     Главная  
Версия: html / touch(beta)
7ba.Ru
[0.0033]