1)твердь мыслеттэ добрэ
2)и земля
3) тысяча цы покой
4) тысяча тысяча ук наш зело
<em>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
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.
<u>Пример</u>
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
Ответ:
с лева клацаеш на файл там открыть и создать слева в вкладке вставка печатать
Объяснение: