Вычислить h=Sa-Sb где Sa иSb суммы положительных элементов массивов а и в. Вычесления...

Question

Вычислить h=Sa-Sb где Sa иSb суммы положительных элементов массивов а и в. Вычесления суммы оформить процедурой и функцией

Answer 1

// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!

procedure pSumPos(m:array of integer; var r:integer);
begin
  r:=m.Where(t->t>0).Sum
end;

function fSumPos(m:array of integer):=m.Where(t->t>0).Sum;

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  var b:=ArrRandom(ReadInteger('n='),-50,50); b.Println;
  Write('Сумма положительных элементов А: ');
  var s:integer;
  pSumPos(a,s);
  Writeln(s);
  Writeln('Сумма положительных элементов B: ',fSumPos(b));
end.

Пример
n= 13
48 39 -37 -28 45 -29 18 7 -23 47 -38 -34 12
n= 14
8 -3 32 -39 11 2 -30 -9 10 43 -43 41 -34 -25
Сумма положительных элементов А: 216
Сумма положительных элементов B: 147