For i: =1 to n do if a[i]> max then max: =a[i] writeln(max)
Объяснение:
в итоге выведется последнее значение, которое было присвоено переменной max
