Question

Напишите программу в паскале.
Использование ветвлений.
Ввести пять чисел и найти наибольшее из них.
Пример:
Введите пять чисел:
4 15 9 56 4
Наибольшее число 56

Answer 1

program p12;
type tab=array[1..5] of integer;
var t:tab;
i,max:integer;
begin;
for i:=1 to 5 do readln(t[i]);
for i:=1 to 5 do 
if t[i]>max then max:=t[i];
write('Наибольшее число ',max);
end.

Answer 2

// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
begin
  Writeln('Наибольшее число ',
    ReadArrInteger('Введите пять чисел:'+NewLine,5).Max)
end.

Тестовое решение:
Введите пять чисел:
 4 15 9 56 4
Наибольшее число 56