Элементарная задача, намекните Опции

[Makc]

Составить программу, определяющую большее из 5 введенных чисел :D

[Lapp]

Человек в точности,написал,то что я тебе до этого написал вербально.Чуть чуть реализация изменена.

Хм. Krjuger, ты уверен?
Давай, я тебе напомню, что ты написал..

Первое сравниваеш с нулевым,предварительно прировняв его к нулю.
а[0]=0 дальше в цикле проверяем a[0] a[i],если а[i]>a[0],то a[0]=a[i] ,если нет то проверяем со следующим,если есть отрицательные числа,то уточни как сравниваем.

А теперь проверь свой вербальный алгоритм для такого набора:
-1, -2, -3, -4, -5
Не кажется ли тебе, что что-то не так? ))

М

Макс, пожалуйста, переименуй тему (Правила Форума, п.4, и правила раздела Задачи, п.1), иначе она будет закрыта, а тебе будет назначен премод.

max:=1;
for i:=2 to 5 do if a[i]>a[max] then max:=i;
WriteLn(a[max]);