Viết chương trình nhập vào dãy số gồm phần tử n in ra màn hình và tính tổng các số âm trong dãy n được nhập từ bàn phím
Viết chương trình nhập vào dãy số gồm phần tử n in ra màn hình và tính tổng các số âm trong dãy n được nhập từ bàn phím
program ct;
uses crt;
var i,n,S:integer;
A:array[1..100] of integer;
begin
clrscr;
write(‘nhap n:=’);readln(n);
for i:=1 to n do
begin
write(‘nhap mang A[‘,i,’]:=’);readln(A[i]);
end;
S:=0;
for i:=1 to n do
if A[i]<0 then S:=S+A[i];
writeln(‘tong cac so am la:’,S);
readln
end.
program oken;
uses crt;
var a: array [1..100] of integer;
s,n,i: longint;
begin
clrscr;
write(‘Nhap so phan tu cua mang: ‘); readln(n);
s:=0; i:=0;
while i<=n do
begin
i:=i+1;
write(‘A[‘,i,’]: ‘);
readln(a[i]);
if a[i]<0 then
s:=s+a[i];
end;
writeln(‘Tong cac phan tu co gia tri la am: ‘,s);
readln;
end.