дан одномерный массив А. Поменять местами последний положите и второй элемент массива. Разделить все элементы с четными номерами на первый элемент.

const max=100;
var a:array[1..max] of real;
    n,i,ip:byte;
    x:real;
begin
clrscr;
randomize;
repeat
write('Размер массива от 2 до ',max,' n=');
readln(n);
until n in [2..max];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=10*random-4;
  write(a[i]:6:2);
 end;
writeln;
writeln;
ip:=0;
for i:=1 to n do
if a[i]>0 then ip:=i;
if ip=0 then write('Положительных элементов нет!')
else
 begin
  writeln('Индекс последнего положительного элемента=',ip);
  writeln;
  x:=a[ip];
  a[ip]:=a[2];
  a[2]:=x;
  writeln('Обмен второго и последнего положительного элементов:');
  for i:=1 to n do
  write(a[i]:6:2);
  writeln;
  writeln;
 end;
writeln;
writeln('Деление всех элементов на первый элемент:');
for i:=1 to n do
 begin
  if i mod 2=0 then a[i]:=a[i]/a[1];
  write(a[i]:6:2);
 end;
readln
end.