ЗЫ да забыл при этом их не сортируя. Заранее очень благодарен.
Program nomer1;
const N=10;
var
mas:array[1..N]of integer;
i,min: integer;
begin
randomize;
for i:=1 to N do
begin
mas[i]:=random(108)+1900;
write(mas[i], '|');
end;
writeln;
min:=mas[i];
for i:=2 to N do
if mas[i] < min then
begin
min:= mas [i];
writeln (min)
end;
end.
вроде так но чегото не получается.... помогите..
Сообщение отредактировано: Spaun -