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 ạ.
2 câu trả lời
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.
