Viết chương trình tính tổng các số dương khi cho một dãy số nguyên tùy ý nhập từ bàn phím
2 câu trả lời
mk nghĩ là thế nha bạn
uses crt;
var a:array[1..100] of integer;n,i,s:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
begin
write('A[',i,']');
readln(a[i]);
end;
s:=0;
for i:=1 to n do
begin
if a[i]>0 then s:=s+a[i];
end;
write(s);
readln;
end.
uses crt;
var a:array[1..100] of integer;
n,i,s:integer;
begin
clrscr;
write('nhap n:');readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
s:=0;
for i:=1 to n do
if a[i]>0 then s:=s+a[i];
write('tong cac so duong la:',s);
readln;
end.
