Question

viết chương trình nhập dãy n số nguyên từ bàn phím In ra màn hình các số nguyên dương và tổng các số nguyên dương

Answer 1

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.