Дан массив Z[1...4,1...3] с целыми элементами. Создать программу с процедурой которая вычислит количество отрицательных чисел и сумму нечетных элементов массива
Ответы
Ответ дал:
0
// 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
Замечание: Во избежании разнотолков указывайте, что понимать под нечетным элементом: нечетный по значению, с нечетным индексом (тогда еще с какого значения начинаются индексы) или нечетный по порядку.
// Внимание! Если программа не работает, обновите версию!
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 года назад
2 года назад
8 лет назад