Как найти большее число из имеющихся значений в Паскале?

[Auditor]

Помогоите плиз!!! =)

[Карась]

В смысле? ......

[RealSHELS]

Ты вопрос нормально сформулируй

[Stilet]

В цикле проходи по "значениям" и сверяй их с последним максимальным

[RealSHELS]

А если значения такие:
a:=3;
fd:=5;
nbd:=6;
asd:=4;
Как среди них тогда найти большее циклом?
Циклом только если масив.

[[Smarik]]

Если количество цифр заранее известно, то хоть условием сравнивай.

[Kostia]

Auditor, заводите переменную max:integer, задаете ей самое маленькое значение(-maxint), затем в цикле пробегаете по всем значением и сравниваете с max и если значение больше max, то пишите его в max.
----
Это если с массивами.
Ну а если переменные, то все тоже самое только без цикла а обычными сравнениями

если а>max то ...
если b>max то ...
...

[puporev]

А если значения такие:
a:=3;
fd:=5;
nbd:=6;
asd:=4;
Как среди них тогда найти большее циклом?
Циклом только если масив.

Тогда почему нельзя a[1]:=3;a[2]:=5;a[3]:=6;a[4]:=4; Получится нормальный массив. Если не знаете заранее, сколько будет чисел, формируйте массив в цикле, что-то вроде этого:

var a:array[1..100]; c:char;i:integer;
repeat
n:=1;
readln(a[i]);
n:=n+1;
c:=readkey;
until c=#27;

Если чисел мало, например до пяти и по условию нельзя использовать массивы, то можно так:

function Max(a,b:integer):integer;
begin
if a>b then Max:=a
else Max:=b;
end;

Затем вводим пять чисел и пишем

writeln(Max(Max(Max(s,d),Max(f,g)),h));

только со скобками не запутаться. Если чисел от 6 до 10 то функцию сделать для трех чисел.
Короче способов много, нужно четко знать поставленную задачу.