Bài4:Viết chương trình nhập vào n số, đếm xem có bao nhiêu số bé hơn 10 Ví dụ: N=4 Nhap so thu 1:14 Nhap so thu 2:-5 Nhap so thu 3: 12.5 Nhap so thu 4: 8 Co 2 so be hon 10 Bài5: VCT nhập vào số kw tiêu thụ điện của N hộ từ bàn phím. Tính trung bình số kw tiêu thụ điện của N hộ đó. Ví dụ: Nhap N =3 So kw ho 1:90 So kw ho 2 :75 So kw ho 3: 100 Trung binh so kw tieu thu cua N ho la: 88.3 Mong mọi người giúp đỡ ạ xin cảm ơn nhiều ạ.

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.