Pascal. Как найти самое большое число из 10 чисел?

Question

Я то это понимаю но вдруг некоторые числа равны:

Александр Коннов · Accepted Answer

Создаете for цикл на 10 проходов, в нем добавляете в массив 10 чисел, вводите переменную (к примеру с: integer) затем создаете еще один цикл и в нем перебираете каждое значение массива по условию 
if(ar[ i ] > c) then c:= ar[ i ];

Дина · Answer

поиск мах в массиве 
max:=a [ 1 ]; 
for i :=2 to 10 do 
if a [ i ] > max then max:=a [ i ];

Сергей Безносенко · Answer

Алгоритм заключается в следующем: 
 
1. Объявить большим 1 число. 
2. Перейти к следующему числу 
3. Если оно больше объявленного, то заменить объявленное большее на него. 
4. Если номер числа меньше 10, то перейти к п. 2 
5. Вывести найденное большее. 
6. Конец