Question

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

Answer 1

Ответ:

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

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

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

0

Объяснение:

Answer 2

program massive (input, output); - по книге Йенсена и Вирта 1982 года выпуска Паскаль изучали?

Answer 3

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

begin

 var a := ReadArrInteger(10);

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

 a.Print

end.