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.
