Viết chương trình thực hiện các yêu cầu: (1điểm) - Nhập vào một mảng A có n phần tử là số nguyên.(n <= 50) - In ra màn hình tổng các số lớn hơn 0 trong mảng.

uses crt;
var
    a : array[1..50] of longint;
    n,i,tong : longint;
begin
clrscr;
    write(' Nhap n : ');readln(n);
    for i := 1 to n do 
        begin
        write(' Nhap phan tu thu ',i,' :' );readln(a[i]);
        if a[i] > 0 then tong := tong + a[i];
        end;
    writeln(' Tong =', tong);
end.