Question

дан одномерный массив, состоящий из N целых чисел. Найти сумму всех положительных элементов, и сумму всех отрицательных элементов. на компьютер нужно написать программку​

Answer 1

const

n=5;

var

a:array[1..n] of integer;

i,sum:integer;

function summa_tsifr(a:integer):integer;

var s:integer;

begin

s:=0;

while a>0 do

begin

s:=s+a mod 10;

a:=a div 10;

end;

summa_tsifr:=s;

end;

begin

randomize;

sum:=0;

for i:=1 to n do

begin

a[i]:=random(20)+1;

sum:=sum+summa_tsifr(a[i]);

write(a[i]:3);

end;

writeln;

writeln('Summa tsifr vseh elementov->',sum);

readln;

end.