Question

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 ạ.

 

Answer 1

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.

Answer 2

4:

#include <bits/stdc++.h>

using namespace std;

long long n,i,dem,x;

int main()

{

cin>>n;

dem=0;

for (i=1; i<=n; i++)

{

cin>>x;

if (x<10) dem++;
}

cout<<dem;

return 0;

}

Answer 3

Var i,n,dem:integer;

so:real;

Begin

Write('Nhap so luong so = ');readln(n);

For i:=1 to n do

Begin

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

If so < 10 then dem:=dem+1;

End;

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

Readln;

End.

Answer 4

Bài 5:

Var kw,i,n,s:integer;

tbc:real;

Begin

Write('Nhap so ho = ');readln(n);

For i:=1 to n do

Begin

Write('So kw ho thu ',i);readln(kw);

s:=s+kw;

End;

tbc:=s/n;

Write('So kw trung binh cua ',n,' ho la ',tbc:10:2);

Readln;

End.