Viết chương trình nhập từ bàn phím số nguyên N( N<=100) và dãy số nguyên A. Tính tổng các số nguyên và số âm của dãy số nguyên đó
Viết chương trình nhập từ bàn phím số nguyên N( N<=100) và dãy số nguyên A. Tính tổng các số nguyên và số âm của dãy số nguyên đó
program ct;
uses crt;
var A:array[1..100] of integer;
i,n:byte;
S,Sa:longint;
begin clrscr;
write(‘Nhap so phan tu: ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap A[‘,i,’]: ‘); readln(A[i]);
end;
for i:=1 to n do
begin
S:=S+A[i];
if A[i]<0 then Sa:=Sa+A[i];
end;
writeln(‘Tong cac so nguyen la: ‘,S);
writeln(‘Tong cac so am la: ‘,Sa);
readln;
end.
Học tốt!
var a:array[1..100] of integer;
i,n,tong:integer;
begin
write(‘nhap n’); readln(n);
tong:=0;
for i:=1 to n do
begin
readln(a[i]);
if a[i]<0 then tong:=tong+a[i];
end;
write(tong);
end.