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

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.