program laba;
{$APPTYPE CONSOLE}
uses
SysUtils,
windows;
var
a:array[1..15] of integer;
i,imax,x:integer;
begin
SetConsoleoutputCP(1251);
for i:=1 to 15 do
begin
writeln('Введите',i,'-й элемент');
readln(a[i]);
end;
imax:=1;
for i:=2 to 15 do
if a[i]>a[imax] then imax:=i;
x:=a[15];
writeln('максимальное число = ',a[imax],' его индекс= ',imax);
if imax=15 then write('Он последний, обмена нет');
else
begin
x:=a[imax];
a[imax]:=a[15];
a[15]:=x;
writeln('Обмен максимального и последнего:');
for i:=1 to 15 do
write(a[i]:6:3,' ');
end;
readln;
end.
Объяснение:
