👤

PASCAL:Ajutatima va rog frumos!


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


Răspuns :

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!

Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile prezentate v-au fost utile. Dacă aveți întrebări suplimentare sau nevoie de ajutor, vă rugăm să ne contactați cu încredere. Așteptăm cu drag să reveniți și nu uitați să ne salvați în lista dumneavoastră de favorite!


En Studentsy: Alte intrebari