Симанский
4 год назад
Программирование Паскаль (Делфи 7)1.Задан массив A(N,N), заполненный целыми случайными числами из диапазона [-11;13]. Найти сумму нечетных положительных элементов массива. 2.Задан массив A(N), заполненный случайными целыми числами из диапазона [-16,24]. Составить программу упорядочения массива по убыванию элементов.
ОТВЕТЫ
Agap
Oct 24, 2020
- 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).Print
- end.
- begin
- var n := ReadInteger('n:');
- var a := ArrRandom(n, -16, 24);
- a.Println;
- a := a.SortedDescending.ToArray;
- a.Print
- end.
- Разве он не должен иметь такой вид?
613
