Паскаль.
Задан целочисленный массив из 5 чисел. Числа вводим с клавиатуры. Найти максимальный элемент. Стоит ли он на последнем месте в массиве.

var a:array [1..5] of integer;i,max,c:integer;beginfor i:=1 to 5 dobeginwrite ('Введите ',i,' число: ');readln (a[i]);end;max:=a[1];for i:=1 to 5 dobeginif max<a[i] thenbeginmax:=a[i];c:=i;end;end;WRITELN;write ('Введённый массив: ');for i:=1 to 5 dobeginwrite (a[i],' ');end;writeln;writeln ('Максимальный элемент: ',max);if c=5 then write ('Максимальный элемент стоит на последнем месте!') else write ('Максимальный элемент не стоит на последнем месте!')end.