uses crt;

var i,s1,d,m: integer;

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

s2: real;

begin

clrscr;

for i:=1 to 10 do

begin

write('Nhap diem ban thu ',i,': ');

readln(a[i]);

if a[i] mod 2 = 0 then s1:=s1+a[i];

if a[i] mod 2 <> 0 then begin s2:=s2+a[i]; d:=d+1; end;

if a[i]>=7 then m:=m+1;

end;

s2:=s2/d;

writeln('Tong le=',s1);

writeln('Trung binh cong chan=',s2);

write('So hoc sinh gioi, kha: ',m);

readln

end.

- Dùng mảng :

uses crt;
var A : array [1 .. 50] of integer;
i, n, T1, T2, d1, d2 : integer;
begin
clrscr;
write('Nhap so HS : '); readln(n);
for i := 1 to n do 
    begin
        write('Nhap diem HS thu ', i ,' : ');
        readln(A[i]);
        if A[i] mod 2 <> 0 then 
            T1 := T1 + A[i]
        else 
            begin 
                T2 := T2 + A[i]; 
                d2 := d2 + 1;
        end;
        if A[i] >= 7 then d1 := d1 + 1; end;
writeln('Tong diem le = ', T1);
writeln('TBC diem chan = ', T2 / d2:2:2);
writeln('Co ', d1 ,' diem kha gioi');
readln
end.

- Không dùng mảng :

uses crt;
var i, n, T1, T2, d1, d2, x : integer;
begin
clrscr;
write('Nhap so HS : '); readln(n);
for i := 1 to n do
    begin
        write('Nhap diem HS thu ', i ,' : ');
        readln(x);
        if x mod 2 <> 0 then T1 := T1 + x
        else begin T2 := T2 + x; d2 := d2 + 1; end;
        if x >= 7 then d1 := d1 + 1; end;
writeln('Tong diem le = ', T1);
writeln('TBC diem chan = ', T2 / d2:2:2);
writeln('Co ', d1 ,' diem kha gioi');
readln
end.