Не понял ваше её::::::::(

[snacki]

составить программу, которая меняет местами максимальный и минимальный по значению элементы одномерного целочисленного массива Х, состоящего из не повторяющихся 15 значений.


не знаю что после Begin ПИСАТЬ


ПОМОГИТЕ ПЛИЗЗ

[Базиля]

что-то вроде того

var a:array[1..15]of integer;
l,max,min,n,i,h,p:integer;
begin
readln(n);
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
max:=a[1];
min:=a[1];
h:=1;
p:=1;
for i:=1 to n do
begin
if a[i]>max then
begin
max:=a[i];
p:=i;
end;
if min>a[i] then
begin
h:=i;
end;
end;
l:=a[p];
a[p]:=a[h];
a[h]:=l;
for i:=1 to n do
write(a[i],' ');
end.

[snacki]

Спасиб большое