1

program ct;

uses crt;

var i,n:integer;

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

begin

clrscr;

    write('nhap n:=');readln(n);

      for i:=1 to n do

begin

    write('nhap mang A[',i,']:=');readln(A[i]);

end;

    for i:=1 to n do

      if (A[i] mod 2=0) and (A[i]>100) then writeln('so chan be hon 100 là:',A[i]);

readln

end.

2

program ct;

uses crt;

var i,n,s:integer;

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

begin

clrscr;

    write('nhap n:=');readln(n);

      for i:=1 to n do

begin

    write('nhap mang A[',i,']:=');readln(A[i]);

end;

    s:=0;

       for i:=1 to n do

          if (A[i] mod 2=1) and (A[i] mod 5=0) then s:=s+A[i];

       writeln('tong la:',s);

readln

end.

1.

program ds;

uses crt;

var n,i: integer;

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

begin

clrscr;

write('Nhap n= ');

readln(n);

writeln('Nhap mang:');

for i:=1 to n do

begin

    write('Nhap phan tu thu ',i,': ');

    readln(a[i]); 

end;

writeln('Cac phan tu trong mang la so chan va be hon 100 la:');

for i:=1 to n do

begin

    if (a[i] mod 2 = 0) and (a[i] < 100) then write(a[i]:2);

end;

readln;

end.

2.

program tl;

uses crt;

var n,i: integer;

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

      s: longint;

begin

clrscr;

write('Nhap n= ');

readln(n);

writeln('Nhap mang:');

for i:=1 to n do

begin

    write('Nhap phan tu thu ',i,': ');

    readln(a[i]); 

    if (a[i] mod 2 <> 0) and (a[i] mod 5 = 0) then s:=s+a[i];

end;

writeln('Tong cac so le chia het cho 5 trong mang la: ',s);

readln;

end.