cho một dãy số nguyên (gồm cả số nguyên âm và số nguyên dương)gồm N phần tử (N<15) a, nhập vào từ bàn phím số phần tử và giá trị từng phần tử. b tính tổng các phần tử dương có trong dãy
cho một dãy số nguyên (gồm cả số nguyên âm và số nguyên dương)gồm N phần tử (N<15) a, nhập vào từ bàn phím số phần tử và giá trị từng phần tử. b tính tổng các phần tử dương có trong dãy
Program BTT;
Uses crt;
Var A: array[1..15] of longint;
i,s: longint; n: byte;
Begin
Clrscr;
Write(‘Nhap so luong phan tu: ‘); Readln(n);
s:=0;
For i:=1 to n do
Begin
Write(‘A[‘,i,’] = ‘); Readln(A[i]);
If A[i]>0 then s:=s+A[i];
End;
Write(‘Tong cac phan tu duong trong day la: ‘,s);
Readln
End.
program bt;
uses crt;
var a:array [1..15] of integer;
n,i,s:Integer;
begin
WriteLn(‘ phan tu cua day: ‘); 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= ‘,s);
readln;
end.