uses crt;
var a:array[1..500] of integer;
    i,n,d:integer;
    Sc,Sle : longint;
begin  clrscr;
    Writeln('Nhap n ');readln(n);
    for i:=1 to n do
    begin
    writeln('gia tri thu' , i);
    readln(a[i]);
    end;
//cau 1

for i:=1 to n do write(a[i],' ');
    for i:=1 to n do
     If a[i] mod 2 = 0 then
     //cau 2
    writeln('cac so chan trong mang',a[i] )
     else
//cau 3
     Writeln('cac so le trong mang',a[i]);
     Sc:=0;
     Sle:=0;
    for i:=1 to n do
     If a[i] mod 2 = 0 then
      begin
      Sc:=Sc+ a[i];
      end
      else
      begin
      Sle:= Sle+a[i];
      end;
//cau 4
      Writeln(' tong so le ' ,Sle);
//cau 5
      Writeln('tong so chan' ,Sc);
      d:=0;
     for i:=1 to n do
      if a[i] mod 2 = 0 then d:= d +1 ;

//câu 6
      writeln(' chu so chan trong mang',d);



    readln;
end.

Câu 1:

uses crt;
var n,i:longint;a:array[1..100]of longint;
begin
        clrscr;
        repeat
                write('Nhap so luong phan tu: ');readln(n);
                if n>100 then writeln('NHAP LAI!');
        until n<=100;
        for i:=1 to n do
                begin
                        write('Nhap phan tu thu ',i,': ');readln(a[i]);
                end;
        write('Day so vua nhap: ');
        for i:=1 to n do write(a[i],' '); 
        readln
end.

Câu 2:

uses crt;
var n,i:longint;a:array[1..500]of longint;
begin
        clrscr;
        repeat
                write('Nhap so luong phan tu: ');readln(n);
                if n>500 then writeln('NHAP LAI!');
        until n<=500;
        for i:=1 to n do
                begin
                        write('Nhap phan tu thu ',i,': ');readln(a[i]);
                end;
        write('Cac so chan: ');
        for i:=1 to n do if a[i] mod 2=0 then write(a[i],' '); 
        readln
end.

Câu 3:

uses crt;
var n,i:longint;a:array[1..50]of longint;
begin
        clrscr;
        repeat
                write('Nhap so luong phan tu: ');readln(n);
                if n>50 then writeln('NHAP LAI!');
        until n<=50;
        for i:=1 to n do
                begin
                        write('Nhap phan tu thu ',i,': ');readln(a[i]);
                end;
        write('Cac so le: ');
        for i:=1 to n do if a[i] mod 2=1 then write(a[i],' ');
        readln
end.

Câu 4:

uses crt;
var n,i,s:longint;a:array[1..200]of longint;
begin
        clrscr;
        repeat
                write('Nhap so luong phan tu: ');readln(n);
                if n>200 then writeln('NHAP LAI!');
        until n<=200;
        for i:=1 to n do
                begin
                        write('Nhap phan tu thu ',i,': ');readln(a[i]);
                        if a[i] mod 2=0 then inc(s,a[i]);
                end;
        write('Tong cac so chan: ',s); 
        readln
end.

Câu 5:

uses crt;
var n,i,s:longint;a:array[1..300]of longint;
begin
        clrscr;
        repeat
                write('Nhap so luong phan tu: ');readln(n);
                if n>300 then writeln('NHAP LAI!');
        until n<=300;
        for i:=1 to n do
                begin
                        write('Nhap phan tu thu ',i,': ');readln(a[i]);
                        if a[i] mod 2=1 then inc(s,a[i]);
                end;
        write('Tong cac so le: ',s);
        readln
end.

Câu 6:

uses crt;
var n,i,d:longint;a:array[1..90]of longint;
begin
        clrscr;
        repeat
                write('Nhap so luong phan tu: ');readln(n);
                if n>90 then writeln('NHAP LAI!');
        until n<=90;
        for i:=1 to n do
                begin
                        write('Nhap phan tu thu ',i,': ');readln(a[i]);
                        if a[i] mod 2=0 then inc(d);
                end;
        write('So luong so chan: ',d);
        readln
end.