// PascalABC.NET 3.3, сборка 1590 от 03.12.2017 // Внимание! Если программа не работает, обновите версию!
procedure Foo(a:array[,] of integer; var kn:integer; var so:real); begin var s:=a.ElementsByRow; // последовательность не хранится kn:=s.Where(t->t<0).Count; so:=s.Where(t->t.IsOdd).Sum end;
begin var z:=MatrRandomInteger(4,3,-50,50); z.Println(4); var k:integer; var s:real; Foo(z,k,s); Writeln('Количество отрицательных: ',k); Writeln('Сумма нечетных по значению: ',s) end.
Пример -40 15 -10 -13 37 -13 32 -39 46 -35 0 -43 Количество отрицательных: 7 Сумма нечетных по значению: -91
Замечание: Во избежании разнотолков указывайте, что понимать под нечетным элементом: нечетный по значению, с нечетным индексом (тогда еще с какого значения начинаются индексы) или нечетный по порядку.
ответ на 1 вопрос или 2
Объяснение:
могу только с первым