Bài tập : Tạo mảng A gồm n (n nhỏ hơn hoặc bằng 200) số nguyên. Tính tổng các phần tử trong mảng là số nguyên dương

uses crt;

Var t,n,i:integer;

Begin

 write('nhap n: ');readln(n);t:=0;

 For i:=1 to n do 

  Begin

    write('nhap pt thu ',i,' :');readln(a[i]);

    if a[i]>0 then t:=t+a[i];

  End;

  write('tong la: ',t);

  Readln;

End.

program Tin_hoc;

uses crt;

var n,i,t:integer;

      a : array [1..200] of integer;

begin

clrscr;

writeln('Nhap n<=200');readln(n);

while n>200 do begin write('Nhap lai: ');readln(n) end; 

writeln('Nhap ',n,' phan tu:');

tong:=0;

for i:= 1 to n do 

begin

readln(a[i]);

if a[i] > 0 then tong:=tong+a[i]

end;

writeln('Tong cac phan tu duong la: ',tong);

readln;

end.