Câu trả lời cuối cùng 

`4`

uses crt;

var n,s,d:longint;

a:array[1..1000]

begin

clrscr;

write('n=');

readln(n);

i:=0;

d:=0;

repeat

begin

i:=i+1;

write('nhap so thu ',i,':');

readln(a[i]);

if a[i]<10 then d:=d+1;

end;

until

i>n;

writeln('co ',d,' be hon 10')

`5`

uses crt;
var a:array[1..100]of longint;
n,s,i:longint;
begin
clrscr;
write('nhap so ho ');
readln(n);
i:=0;
s:=0;
repeat
begin
i:=i+1;
write('so kw ho',i,' ');
readln(a[i]);
s:=s+a[i];
end;
until
i>=n;
writeln('so kw trung binh ',s/n:5:1);
readln
end.

Bài 4:

Program baitap;

Uses crt;

Var A:array[1..200] of integer;

      N,i,dem:integer;

Begin

Clrscr;

Write('N='); Readln(N);

dem:=0;

For i:=1 to N do

     Begin

     Write('Nhap so thu ',i,':');

     Readln(A[i]);

     If A[i]<10 then dem:=dem+1;

     End;

Writeln('Co ',dem,' so be hon 10');

Readln

End.

Bài 5:

Program baitap;

Uses crt;

Var A:array[1..200] of real;

      N,i:integer;

      S:real;

Begin

Clrscr;

Write('Nhap N='); Readln(N);

S:=0;

For i:=1 to N do

     Begin

     Write('So kw ho ',i,':');

     Readln(A[i]);

     S:=S+A[i];

     End;

Writeln('Trung binh so kw tieu thu cua N ho la:',S/n:5:1);

Readln

End.