Программирование Паскаль (Делфи 7) 1.

Задан массив A(N,N), заполненный целыми случайными числами из диапазона

[-11;13]. Найти сумму нечетных положительных элементов массива.

2.

Задан массив A(N), заполненный случайными целыми числами из диапазона [-16,24]. Составить программу упорядочения массива по убыванию элементов.

PascalABC.NET

Задание 1:

begin var n := ReadInteger('n:'); var m := MatrRandom(n, n, -11, 13); m.Println; m.ElementsByRow.Sum(x -> x.IsOdd and (x>0) ? x:0).Printend.

Задание 2:

begin var n := ReadInteger('n:'); var a := ArrRandom(n, -16, 24); a.Println; a := a.SortedDescending.ToArray; a.Printend.

Примеры работ: