Bài 1: Viết chương trình: - Nhập một dãy số nguyên có N phần tử - Xuất ra màn hình dãy số vừa nhập - Tính tích các phần tử chia hết cho 5 trong dãy trên và xuất kết quả ra màn hình Bài 2: Viết chương trình : - Nhập một dãy số nguyên có N phần tử - Xuất ra màn hình dãy số vừa nhập - Tính tổng các phần tử nhỏ hơn hoặc bằng 5 có trong dãy trên và xuất kết quả ra màn hình Bài 3: Viết chương trình : - Nhập một dãy số nguyên có N phần tử - Xuất ra màn hình dãy số vừa nhập - Tính tổng bình phương các phần tử là số dương trong dãy và xuất kết quả ra màn hình Có bạn nào biết thì chỉ giùm mình làm bao nhiêu câu cũng được ạ không nhất thiết phải làm hết cả 3 câu!!!

Bài 1:

Program FNG;
Uses crt;
Var A: array[1..1000] of longint;
    n,i,s: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        s:=1;
        For i:=1 to n do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
                If A[i] mod 5 = 0 then s:=s*A[i];
        End;
        Write('S = ',s);
        Readln
End.

Bài 2:

Program FNG;
Uses crt;
Var A: array[1..1000] of longint;
    n,i,s: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        s:=0;
        For i:=1 to n do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
                If A[i]<=5 then s:=s+A[i];
        End;
        Write('S = ',s);
        Readln
End.

Bài 3:

Program FNG;
Uses crt;
Var A: array[1..1000] of longint;
    n,i,s: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        s:=0;
        For i:=1 to n do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
                If A[i]>0 then s:=s+sqr(A[i]);
        End;
        Write('S = ',s);
        Readln
End.