Viết chương trình nhập vào một số nguyên dương N (N<=250) và dãy số gồm N số nguyên từ A1..An. Hãy đếm tổng các số dương trong dãy trên.
Viết chương trình nhập vào một số nguyên dương N (N<=250) và dãy số gồm N số nguyên từ A1..An. Hãy đếm tổng các số dương trong dãy trên.
By Ximena
program dem_tong;
uses crt;
var A:array[1..250] of integer;
n,i,d,t:integer;
begin
clrscr;
write(‘Nhap N: ‘); readln(n);
d:=0; t:=0;
for i:=1 to n do
begin
write(‘A[‘,i,’]= ‘); readln(A[i]);
if A[i]>0 then
begin
d:=d+1;
t:=t+A[i];
end;
end;
writeln(‘Co ‘,d,’ so duong’);
writeln(‘Tong cac so duong la: ‘,t);
readln;
end.
uses crt;
var a:array[1..250]of longint;
n,i,s,d:integer;
begin
clrscr;
s:=0;d:=0;
write(‘Nhap n: ‘);readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]: ‘);readln(a[i]);
end;
for i:=1 to n do if a[i]>0 then
begin
inc(d,1);
inc(s,a[i]);
end;
writeln(‘Co ‘,d,’ so duong’);
write(‘Tong cac so duong trong day: ‘,s);
end.