Если в массиве несколько элементов, равных максимальному значению, то данная программа найдёт первый из них. Что следует изменить в программе, чтобы в ней находился последний из максимальных элементов?
For i:=1 to n do if a[i]>max then max:=a[i] writeln(max); В итоге выведется последнее значение, которое было присвоено переменной max.