K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

7 tháng 3 2023

Program HOC24;

var i,n: byte;

a: array[1..100] of integer;

tbc: real;

t: longint;

begin

write('Nhap N: '); readln(n);

for i:=1 to n do 

begin

write('Nhap so thu ',i,': '); readln(a[i]);

tbc:=0; t:=0;

end;

for i:=1 to n do

begin

tbc:=tbc+a[i];

if a[i] mod 2=1 then t:=t+a[i];

end;

writeln('Trung binh cong cac phan tu la: ',btc/n:5:2);

write('Tong cac so le la :',t);

readln

end.

#include <bits/stdc++.h>

using namespace std;

long long x,n,i,t;

int main()

{

cin>>n;

t=0;

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

{

cin>>x;

if (x%2!=0) t+=x;

}

cout<<t;

return 0;

}

24 tháng 2 2022

các bạn ơi chỉ mình với

 

16 tháng 6 2021

Uses crt;

Var Tong, n, i: integer;

Begin

 Clrscr;

 Writeln(‘nhap n=’);

 Readln (n);

 Tong:=0;

 For i:=1 to n do

 If I mod 2 = 1 then Tong:= Tong+i;

 Writeln(‘Tong la:’,Tong);

 Readln

End.

26 tháng 10 2021

#include <bits/stdc++.h>

using namespace std;

long long n,i,x,t,dem;

int main()

{

cin>>n;

dem=0;

t=0;

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

{

cin>>x;

if (x%2!=0) 

{

dem++;

t=t+x;

}

}

double s=t*1.0/dem*1.0;

cout<<fixed<<setprecision(2)<<s;

return 0;

}

27 tháng 10 2021

Thuật toán liệt kê:

Bước 1: Nhập n và dãy A1,A2,..,An

Bước 2: TB←0; i←1; d←0;

Bước 3: Nếu i>n thì in ra TB/d và kết thúc

Bước 4: Nếu Ai mod 2=1 thì TB←TB+Ai và d←d+1;

Bước 5: i←i+1, quay lại bước 3

12 tháng 3 2023

Program HOC24;

var i,n: integer;

t: longint;

a: array[1..1000] of integer;

begin

write('Nhap n '); readln(n);

for i:=1 to n do 

begin

write('a[',i,']= '); readln(a[i]);

end;

t:=0;

for i:=1 to n do t:=t+a[i];

write('Ket qua la: ',t);

readln

end.

18 tháng 12 2022

Cau 1:

var i,dem:integer;

function ngto(n:longint):boolean;
var bo:boolean;
i:longint;
begin
    bo:=true;
    for i:=2 to n-1 do 
    if n mod i=0 then bo:=false;
    if n>1 then ngto:=bo else ngto:=false;
end;
begin
    for i:=2 to 100 do 
    if ngto(i) then dem:=dem+i;
    write(dem);
readln;
end.

Cau 2:

var i,dem,n:longint;

begin
    read(n);
    dem:=1;
    for i:=1 to n do 
    dem:=dem*i;
    write(dem);
readln;
end.

#include <bits/stdc++.h>

using namespace std;

long long a[10000],i,n,t;

int main()

{

freopen("avg.inp","r",stdin);

freopen("avg.out","w",stdout);

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

t=0;

for (i=1; i<=n; i++) t+=a[i];

cout<<fixed<<setprecision(1)<<(t*1.0)/(n*1.0);

return 0;

}