Navoklag
4 год назад
Вычислить h=Sa-Sb где Sa иSbсуммы положительных элементов массивов а и в. Вычесления суммы оформить процедурой и функцией
ОТВЕТЫ
Мирчо
Oct 24, 2020
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
807
Смежные вопросы: