В массиве Р(10) введенном с клавиатуры поменять местами наибольший и наименьший элементы. Делфи.

[Lerika]

Помогите решить пожалуйста в Delphi две задачи на одномерные массивы:

1.В массиве Р(10) введенном с клавиатуры поменять местами наибольший и наименьший элементы.

2. Найти номера пары элементов массива В(20) вводимого с клавиатуры, равноотстоящих от начала и конца массива и имеющих одинаковые значения

[werser]

var b:array [1..10] of integer;
i,d,max,maxi,mini,min,c:integer;
begin
randomize;
max:=0; min:=32000;
for i:=1 to 10 do
begin
if b[i]>max then begin max:=b[i];maxi:=i; end;
end;
for i:=1 to 10 do
begin
if b[i]<min then begin min:=b[i];mini:=i end;
end;
c:=b[maxi];
b[maxi]:=b[mini];
b[mini]:=c;
end;

[werser]

Это текст кнопки обработки массива. Дкмаю ввести сможеш это просто и вывести потом. Просто Не знаю как ты его вводить будеш спомощью стринггрида или как то по другому

[Greblin]

Интуиция подсказывает мне, что проги нужны консольные...
1.

program maxmin;
{$APPTYPE CONSOLE}
var P: array[1..10] of integer;
     max, min, imax, imin, i: integer;
begin
writeln('Enter array: ');
read(P[1]);
max := P[1]; min := P[1]; imin := 1; imax := 1;
for i := 2 to 10 do
  begin
  read(P[i]);
  if P[i] > max then begin max := P[i]; imax := i end
  else if P[i] < min then begin min := P[i]; imin := i end
  end;
P[imax] := min; P[imin] := max;
for i := 1 to 10 do write(P[i],' ');
end.

[Greblin]

2.

program pairs;
{$APPTYPE CONSOLE}
var B: array[1..20] of integer;
    i: integer;
begin
write('Enter array: ');
for i := 1 to 20 do read(B[i]);
for i := 1 to 10 do
  if B[i] = B[20-i+1] then writeln(i,' ',20-i+1);
end.

[maladoy]

Сообщение от werser

var b:array [1..10] of integer;
i,d,max,maxi,mini,min,c:integer;
begin
randomize;
max:=0; min:=32000;
for i:=1 to 10 do
begin
if b[i]>max then begin max:=b[i];maxi:=i; end;
end;
for i:=1 to 10 do
begin
if b[i]<min then begin min:=b[i];mini:=i end;
end;
c:=b[maxi];
b[maxi]:=b[mini];
b[mini]:=c;
end;

////////////////////////////

[Lerika]

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