Pascal
Ввести одномерный массив, состоящий из 10 элементов. Заменить отрицательные элементы на противоположные по знаку. Вывести полученный массив на экран

1) Дан целочисленный одномерный массив состоящий из n элементов. Вывести отрицательные элементы массива.

2) Дан одномерный массив состоящий из n элементов. Если очередной элемент чётный, то прибавь к нему первый, если нечётный - прибавить последний. Первый и последний элементы не изменять. (тут можно с пояснением).

3) Дан целочисленный одномерный массив. состоящий из n элементов. Найти произведение нечётных элементов кратных 3.

0

Объяснение:

===== PascalABC.NET =====

begin

 var a := ReadArrInteger(10);

 a.Transform(p -> Abs(p));

 a.Print

end.