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