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

[Makc]

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

[Krjuger]

Lapp,ты придираешся.

если есть отрицательные числа,то уточни как сравниваем

Не зря я это написал.
Чем

max:=x[1];
nom:=1;
   for i:=1 to 3 do  
 if(max<x[i]) then 
 begin
          max:=x[i];
           nom:=i;
  end;

отличается.
Единственное отличие от того, что я написал,это то,что он взял за начало не 0,а первый элемент и максимальное сделал отдельной переменной,а я предлагал,чтобы максимальное значение хранилось в том же массиве.И еще,если человеку не понятно как сделан,предложенный ранее вариант,то как думаеш поймет ли от твою реализацию......мне кажется нет)