làm ở ARRAY nha AI GIÚP EM VOTE 5 SAO NHA Bài 1 : - Nhập 1 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 là xuất ra màn hình Bài 2 : - Nhập 1 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 số nhỏ hơn hoặc = 5 có trong dãy trên và xuất ra màn hình. Bài 3 : - Nhập 1 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 ra màn hình

Bài `1`

Program Hotboy ;

Uses crt;

Var A: array[1..100] of integer;

    n,i: integer ;

    s: longint;

Begin

Clrscr;

S:=1;

Write('Nhap n: ');

Readln(n);     

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;

For i:=1 to n do Write(A[i],' ');

Write('Tich la',s);

Readln

End.

Bài `2`

Program Hotboy ;

Uses crt;

Var A: array[1..100] of integer;

    n,i: integer ;

    s: longint;

Begin

Clrscr;

S:=0;

Write('Nhap n: ');

Readln(n);     

For i:=1 to n do

Begin

Write('A[',i,'] = ');

Readln(A[i]);

If (A[i]<= 5 )then s:=s+A[i];

End;

For i:=1 to n do Write(A[i],' ');

Write('Tong la',s);

Readln

End.

Bài `3`

Program Hotboy;

Uses crt;

Var i,n:integer;

S:longint;

A:array[1..100] of integer;

Begin

clrscr;

S:=0;

 Write('nhap n nguyen duong tu ban phim ');

 Readln(n);

 For i:=1 to n do

Begin

    Write(' A[',i,']');readln(A[i]);

End;

For i:=1 to n do

If (A[i] >0) then

S:=S+sqr(A[i]);

Write(' Tong cac so la ',S);

Readln

End.

Bài 1:

Program FNG;
Uses crt;
Var A: array[1..10000] of longint;
    n,i: longint;
    s: int64;
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;

        For i:=1 to n do Write(A[i],' ');

        Writeln;
        Write('S = ',s);
        Readln
End.

Bài 2:

Program FNG;
Uses crt;
Var A: array[1..10000] 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;
        For i:=1 to n do Write(A[i],' ');
        Writeln;
        Write('S = ',s);
        Readln
End.

Bài 3:

Program FNG;
Uses crt;
Var A: array[1..10000] of longint;
    n,i: longint;
    s: qword;
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;
        For i:=1 to n do Write(A[i],' ');
        Writeln;
        Write('S = ',s);
        Readln
End.