Cho mảng A gồm N phần tử thuộc kiểu nguyên dương (N≤500)? Viết chương trình thực hiện tính tổng các số chia hết cho 3 hoặc cho 5, phải viết và sử dụng các chương trình con sau trong chương trình: a) Thủ tục nhập giá trị cho mảng A từ bàn phím. b) Hàm kiểm tra số chia hết cho 3 hoặc 5.

Program FNG;
Uses crt;
Type manga=array[1..1000] of longint;
Var A: manga;
    n,i,s: longint;

Procedure nhap(Var A: manga; Var n: longint);
Var i: longint;
Begin
        Write('Nhap n: '); Readln(n);
        For i:=1 to n do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
        End;
End;

Function xuli(a: longint): boolean;
Begin
        If (a mod 5 = 0) or (a mod 3 = 0) then exit(true);
        exit(false);
End;


Begin
        Clrscr;
        nhap(a,n);
        For i:=1 to n do
                If xuli(A[i]) then s:=s+A[i];
                Write('S = ',s);
        Readln
End.

uses crt;

var n:integer;
    a:array[1..500] of longint;
    s:longint;
function check(x:longint):boolean;
begin
        if (x mod 3=0) or (x mod 5=0) then exit(true);
        exit(false);
end;
procedure nhap;
var i:integer;
begin

        clrscr;
        write('Nhap n: '); readln(n);
        for i:=1 to n do
                begin
                        write('Nhap phan tu thu ',i,' : ');
                        readln(a[i]);
                end;
        writeln;
end;
procedure xuli;
var i:integer;
begin
        for i:=1 to n do
                if check(a[i]) then s:=s+a[i];
end;
procedure xuat;
begin
        write('Tong cac so chia het cho 3 hoac 5 la: ',s);
        readln;
end;
begin
        nhap;
        xuli;
        xuat;
end.