Sử dụng biến mảng viết chưa trình nhập vào một dãy số gồm N số nguyên từ bàn phím in ra màn hình tổng các số dương trong dãy số đó.
cứu mình huhu
Sử dụng biến mảng viết chưa trình nhập vào một dãy số gồm N số nguyên từ bàn phím in ra màn hình tổng các số dương trong dãy số đó. cứu mình huhu
By Clara
program tong_duong;
uses crt;
var A:array[1..1000] of integer;
n,i,t:integer;
begin
clrscr;
write(‘Nhap N: ‘); readln(n);
t:=0;
for i:=1 to n do
begin
write(‘Nhap so thu ‘,i,’: ‘); readln(A[i]);
if A[i]>0 then t:=t+A[i];
end;
write(‘Tong cac so duong la: ‘,t);
readln;
end.
uses crt;
var a: array[1..100] of integer;
i,n,s: integer;
begin
clrscr;
write(‘nhap n: ‘); readln(n);
for i:=1 to n do
begin
write(‘nhap PT thu ‘,i,’: ‘); readln(a[i]);
if a[i]>0 then s:=s+a[i];
end;
write(‘tong cac so duong trong day la: ‘,s);
readln;
end.