Question

ДАЮ 20 БАЛЛОВ!Дан массив из 25 элементов:
1)Положительные элементы уменьшить вдвое, а отрицательные элементы заменить на значения индексов.
2)Найти сумму элементов с чётными номерами и отдельно с нечетными
номерами.
3)Все элементы массива расположить в обратном порядке.
4)Найти значение и индекс наибольшего из отрицательных элементов.
5)Определить среднее арифметическое кратных 5 и некратных 10.
Нужно сделать 3 пункта выборочно!!!

Answer 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] < 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.

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