Как удвоить все элементы массива в паскале?

21

1

Удвоить все положительные элементы массива

12.12.2011, 00:50. Просмотров3537. ответов 2

Метки нет (Все метки)



Задание :

Тип массива - целый; число элементов - 10.

Постановка задачи:

1 - Организовать ввод массива заданного размера.;

2 - Посчитать сумму всех членов массива ;

3 - Найти максимальный и минимальный элемент массива;

4 - вывести введенный массив;

5 - все положительные элементы массива удвоить, все отрицательные элементы заменить на значения их индексов. Вывести преобразованный массив.

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

begin

 var n := ReadInteger('n =');

 var a := ArrRandom(n, -99, 99);

 a.Println;

 a.Transform(x -> 2 * x); // вот удвоение

 a.Print

end.