ДАЮ 20 БАЛЛОВ!Дан массив из 25 элементов:1)Положительные элементы уменьшить в два раза, а

var

   D : array of real := new real[25];

   S1, S2 : real;

begin

   randomize;

   for var i := 0 to 24 do D[i] := random(-100, 100);

   writeln('Сотворен массив:', 10, D);

   for var i := 0 to 24 do if D[i] lt; 0 then D[i] := i else D[i] := D[i]/2;

   writeln('Положительные элементы убавляем в два раза, а отрицательные сменяем на значения индексов:', 10, D);

   for var i := 0 to 24 do if i mod 2 = 0 then S1 += D[i] else S2 += D[i];

   writeln('сумма четных частей: ', S1);

   writeln('сумма нечетных частей: ', S2);

   Reverse(D);

   Writeln('распологаем элементы массива в обратном порядке:', 10, D);

end.

1-ые 3 пункта, все преображения делаются поочередно над рандомно сгенерированным массивом с диапозоном значений от -100 до 100. Программа тестилась под PascalABC.Net