Выбрать минимальное значение среди 5-ти цифр

[Polotenchik]

Есть:
a:=2;
b:=4;
c:=3;
d:=12;
e:=21;

Надо в переменную X присвоить минимальное число из всех этих 5-ти. Неужели это надо куча проверок делать или можно как-то попроще?

[__STDC__]

да без проблем...

var
	a,b,c,d,e,x,n:real;
BEGIN
	a:=5; b:=4; c:=3; d:=51; e:=2;
	n := (((((a+b)-abs(a-b)))+(((c+d)-abs(c-d))))-abs(((((a+b)-abs(a-b)))-(((c+d)-abs(c-d))))))/4;
	x := ((n+e)-abs((n-e)))/2;
	writeln(x);
	readln;
END.

***
можно упростить если посидеть с ручкой и бумагой.. но мне лень.. сделайте сами

***
немного улучшил =)

***
еще малость сократил =)

***
ну или так

var
	a,b,c,d,e,x:real;
BEGIN
	a:=51; b:=44; c:=23; d:=51; e:=32;
	a := (a+b)-abs(a-b);
	c := (c+d)-abs(c-d);
	a := ((a+c)-abs(a-c))/4;
	x := ((a+e)-abs((a-e)))/2;
	writeln(x);
	readln;
END.

[Ntlegend]

если цыфры забивать не в отдельные переменные а в некий массив то можна плегко и просто.. в цыкле прокрутить и найти..

[Polotenchik]

Сообщение от Ntlegend

если цыфры забивать не в отдельные переменные а в некий массив то можна плегко и просто.. в цыкле прокрутить и найти..

А можно их из переменных закинуть в массив и прокрутить?
Не подкините код?

[Impuls1989]

попробуйте так:

var a:array[1..5] of real
               x:real;
               i:byte;
begin
for i:=1 to 5 do
 begin
   Write('Введите ',i,'-е число: ');
   readln(a[i]);
 end;
x:=a[1];
for i:=2 to 5 do
 if a[i]<x then x:=a[i]
end.

[Polotenchik]

Всем большое спасибо! Буду пробовать! Как сделаю, скажу на каком варианте остановился

[ОДИНОЧЕСТВО В СЕТИ]

вот тебе еще вариант

 uses math;
 begin
 x:=min(a,b);
 x:=min(x,c);
 x:=min(x,d);
 x:=min(x,e);
 end;

[Impuls1989]

Сообщение от ОДИНОЧЕСТВО В СЕТИ

вот тебе еще вариант

 uses math;
 begin
 x:=min(a,b);
 x:=min(x,c);
 x:=min(x,d);
 x:=min(x,e);
 end;

А стоит ли из за одного min, тянуть за собой всю библиотеку?

[Polotenchik]

Сообщение от ОДИНОЧЕСТВО В СЕТИ

вот тебе еще вариант

 uses math;
 begin
 x:=min(a,b);
 x:=min(x,c);
 x:=min(x,d);
 x:=min(x,e);
 end;

Спасибо! Воспользовался этим методом, так как мне всяко пришлось подключить math.

Благодарен так же всем остальным за помощь!

[WhatO_o?!]

Функция элементарная, можно создать отдельно самому, и не таскать библиотек...