Неравенства

← →
Kirill_ (2005-11-15 21:54) [0]

Привет! Как мне найти миньшее число из 6 цифр?

← →
begin...end © (2005-11-15 21:56) [1]

> Kirill_ (15.11.05 21:54)
> Как мне найти миньшее число из 6 цифр?

Цифр, или чисел?

← →
Kirill_ (2005-11-15 22:04) [2]

Поргнал!!
Как мне найти миньшее число из 6?

← →
Digitman © (2005-11-16 13:01) [3]

они, эти 6 чисел, с луны у тебя свалились ? или таки лежат они у тебя в каком-то массиве или отдельных переменных ?

Надо немного переделать, но уже что-то
http://www.kladovka.net.ru/index.cgi?pid=list&rid=213

var
a:array [0..5] of integer;
i,min:integer;
begin
min:=a[0];
for i:=1 to 5 do if a[i]<min then min:=a[i];
end;