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

Question

16 просмотров

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

Информатика Alexgood01_zn (42 баллов) 28 Май, 20 | 16 просмотров

Дан 1 ответ

ingr_zn · Answer 1 · 2020-05-28T08:15:46+0000

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