Вычислить сумму элементов массива с нечетными номерами - Turbo Pascal (100785)

Формулировка задачи:

В одномерном массиве, состоящем из п вещественных элементов, вычислить: 1. Сумму элементов массива с нечетными номерами. 2. Сумму элементов массива, расположенных между первым и последним отри¬цательными элементами. Сжать массив, удалив из него все элементы, модуль которых не превышает еди¬ницу. Освободившиеся в конце массива элементы заполнить нулями. только 1 получилось, помогите пожалуйста

program tema1;
const n=10;
var a:array[1..n] of integer;
i,s:integer;
begin
randomize;
s:=0;
for i:=1 to n do
begin
a[i]:=random(9)+2; {массив заполняется случайными числами из интервала от 2 до 10}
write(a[i],' '); {вывод текущего элемента массива на экран, все элементы выводятся в строку через пробел}
if i mod 2=0 then s:=s+a[i]; {подсчет суммы элементов массива с нечетными номерами}
end;
writeln;
writeln('s=',s); {вывод значения суммы элементов с нечетными номерами на экран}
end;

Решение задачи: «Вычислить сумму элементов массива с нечетными номерами»

Листинг программы

const n=10; W=6; D=2;
var
  a: array [1..n] of Real;
  s: Real;
  i, j: Integer;
begin
  Randomize;
  for i:=1 to n do a[i]:=-5+10*Random;
  Write('A ='); for i:=1 to n do Write(a[i]:W:D); WriteLn;
  s:=0; i:=1; while i<=n do begin s:=s+a[i]; Inc(i,2); end;
  WriteLn('Сумма элементов с нечетным номером: ',s:0:D);
  i:=1; while (i<=n) and (a[i]>=0) do Inc(i);
  j:=n; while (j>=1) and (a[j]>=0) do Dec(j);
  s:=0; for i:=i+1 to j-1 do s:=s+a[i];
  WriteLn('Сумма элементов между первым и последним отрицательными: ',s:0:D);
  j:=1; for i:=1 to n do if Abs(a[i])>1 then begin a[j]:=a[i]; Inc(j); end;
  for i:=j to n do a[i]:=0;
  Write('A''='); for i:=1 to n do Write(a[i]:W:D); WriteLn;
end.

Объяснение кода листинга программы

В данном коде объявлены следующие переменные:

n - количество элементов в массиве (равное 10 в данном случае);
W - шаг для итерации по массиву (равный 6 в данном случае);
D - шаг для итерации по массиву с отрицательными элементами (равный 2 в данном случае);
a - массив из n элементов типа Real;
s - переменная для хранения суммы элементов с нечетными номерами;
i, j - переменные для итерации по массиву. Далее происходит следующее:
1. Инициализируется генератор случайных чисел и заполняется массив a случайными числами от -5 до 10 с шагом W.
2. Вычисляется сумма элементов массива с нечетными номерами и выводится на экран.
3. Вычисляется сумма элементов между первым и последним отрицательными и выводится на экран.
4. Все положительные элементы массива заменяются на 0.
5. Выводится на экран окончательное значение суммы элементов массива a.