Question

Cần tính tổng các số âm trong một dãu số . Em hãy giúp bạn Nam viết chương trình tính bất kì dãy số nguyên nào mà số lượng các dãy số do người dùng nhập

Answer 1

Var n,s,i : integer;

A: array [1..100] of integer;

Begin

Writeln( ' Nhạp do dai day so n=');

Readln(n);

For i:=1 to n do . Readln (A[i]);

S:=0

For i=1 to n do ;

If A[i] <0 then S:=S +A[i];

Writeln(S);

Readln;

End.

_Ps:lụi:vv

Answer 2

uses crt;

var a:array[1..100]of integer;

n,i,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

t:=0;

for i:=1 to n do

if a[i]<0 then t:=t+a[i];

writeln('Tong cac so am trong day so la: ',t);

readln;

end.