Question

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

Answer 1

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 max<a[i] then
begin
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.