Question

PASCAL:Ajutatima va rog frumos!


Se da un tablou A[1..20] creati un program care va calcula suma negativa

Answer 1

Explicație:

var

a:array[1..20] of integer

n1;n2i:interger

Begin

For i:=1 to 20 do

begin

read(a[|])

if (a[I]<0) then

n2+=a[i]

else if (a[I]>0) then

n+1=a[i]

end;

write In(n1)

write In(n2)

Sper ca te am ajutat succes!