1.

Program Tin_hoc;

uses crt;

var i,n:integer;

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

begin

writeln('Nhap 7 so:');

n:=0;

for i:= 1 to 7 do begin readln(a[i]); if a[i] mod 3 = 0 then n:=n+a[i] end;

writeln('Tong cac so chia het cho 3 la: ',n);

readln;

end.

2.

program Tin_hoc;

uses crt;

var i,n,chan,le:integer;

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

begin

clrscr;

writeln('Nhap n<=160:');readln(n);

while n>160 then 

begin

write('Nhap lai:');

readln(n);

end;

chan:=0;le:=0;

writeln('Nhap ',n,' so:');

for i:= 1 to n do

begin

readln(a[i]);

if a[i] mod 2 = 0 then inc(chan) else inc(le)

end;

writeln('Co ',chan,' so chan va ',le,' so le');

readln;

end.

1/ Program Hotboy;

Uses crt; 

Var a:array[1..7] of integer;

S,i : integer;

Begin

Clrscr;

S:=0;

For i:=1 to 7 do

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

If a[i] mod 3 then S:=S+a[i];

Write('S',S); 

Readln

End.

2/ Program Hotboy;

Uses crt;

Var a:array[1..160] of integer;

Chan,le : byte;

Begin

Chan:=0; le:=0;

For i:= 1 to 160 do

Begin

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

End; 

If a[i] mod 2=0 then chan:=chan+1 else le:=le+1;

Write('so so le la',le,'so so chan la',chan);

Readln

End.