Bài4:Viết chương trình nhập vào n số, đếm xem có bao nhiêu số bé hơn 10Ví dụ:N=4Nhap so thu 1:14Nhap so thu 2:-5Nhap so thu 3: 12.5Nhap so thu 4: 8Co 2 so be hon 10Bà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 =3So kw ho 1:90So kw ho 2 :75So kw ho 3: 100Trung binh so kw tieu thu cua N ho la: 88.3Mong mọi người giúp đỡ ạ xin cảm ơn nhiều...
Đọc tiếp
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 ạ.
Tham khảo
uses crt;
var a:array[1..100]of integer;
i,n,dem,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
t:=0;
for i:=1 to n do
if (10<a[i]) and (a[i]<20) then
begin
inc(dem);
t:=t+a[i];
end;
writeln('So phan tu lon hon 10 va nho hon 20 la: ',dem);
writeln('Tong cac phan tu lon hon 10 va nho hon 20 la: ',t);
readln;
end.
câu này là bài 4 đúng ko ạ