Câu 1: viết câu lệnh 1. Khai báo mảng A gồm N ptử số nguyên(N<=100) mỗi phần tử có gtri tuyệt đối<=200 2. Nhập mảng 3. Xuất mảng vừa nhập Câu 2: với mảng vừa nhập ở câu 1, e hãy viết câu lệnh thực hiện công việc sau: 1. Tính tổng các số chẵn có trong mảng A. 2. Tính tổng các số chia hết cho số k(k là số nguyên cho trước ) có trong mảng A. 3. In ra màn hình các số lẻ có trong mảng A. Giúp mk vs mk cần gấp lắm!!

BT1:

Program NN;
Uses crt;
Var A: array[1..100] of longint;
    n,i: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        For i:=1 to n do Read(A[i]);
        For i:=1 to n do Write(A[i],' ');
        Readln
End.

BT2:

Program NN;
Uses crt;
Var A: array[1..100] of longint;
    n,i,sc,s,k: longint;
Begin
        Clrscr;
        Write('Nhap n,k: '); Readln(n,k);
        For i:=1 to n do
        Begin
                Read(A[i]);
                If A[i] mod 2 = 0 then sc:=sc+A[i];
                If A[i] mod k = 0 then s:=s+A[i];
        End;
        Writeln('1. ',sc);
        Writeln('2. ',s);
        Write('3. ');
        For i:=1 to n do
                If A[i] mod 2 <> 0 then Write(A[i],' ');
        Readln
End.

Câu 1:

Uses crt;
Var A:Array[1..100] of integer;
      i, n: integer;
Begin
     Clrscr;
     Write('Nhap n = '); readln(n);
     For i:=1 to n do 
           Begin
               Write('Nhap A[',i,']: ');
               Readln(A[i]);
           End;
Readln
End.

Câu 2:

Uses crt;
Var A:Array[1..100] of integer;
      i, n, tc, tch, dl, k: integer;
Begin
     Clrscr;
     Write('Nhap n = '); readln(n);
     Write('Nhap k = '); readln(k);
     For i:=1 to n do 
           Begin
               Write('Nhap A[',i,']: ');
               Readln(A[i]);
           End;
     tc:=0; tch:=0; dl:=0;
     For i:=1 to n do if a[i] mod 2 = 0 then inc(tc, a[i]);
     For i:=1 to n do if a[i] mod k = 0 then inc(tch, a[i]);
     For i:=1 to n do if a[i] mod 2 = 1 then inc(dl);
     Writeln('Tong cac so chan la: ',tc:4:2);
     Writeln('Tong cac so chia het cho so ',k,' la: ',tch:4:2);
     Writeln('Co ',dl,' so le trong mang');
readln
End.