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.

uses crt;

var x:array[1..100]of real;

n,i:integer;

tb:real;

begin

clrscr;

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

for i:=1 to n do 

  begin

write('X[',i,']='); readln(x[i]);

end;

tb:=0;

for i:=1 to n do 

  tb:=tb+x[i];

writeln(tb/n:4:2);

readln;

end.

15 tháng 3 2021

16 tháng 3 2022

var n:integer; 
begin 
write('Nhap n: '); readln(n); 
if (n mod 3 =0) then 
write(n,' chia het cho 3') 
else 
write(m,' k chia het cho 3'); 
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%3==0) t+=x;

}

cout<<t;

return 0;

}

Bước 1: Nhập n và nhập dãy số

Bước 2: tb←0; i←1;

Bước 3: tb←tb+x[i];

Bước 4: i←i+1;

Bước 5: Nếu i<=n thì quay lại bước 3 và bước 4

Bước 6: Xuất tb/n;

Bước 7: Kết thúc 

1:

uses crt;

var n,i,t:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n do

t:=t+i*i;

write(t);

readln;

end.

4 tháng 4 2023

2

program bt2;

var i,n,t:integer;

begin

readln(n);

s:=0;

for i:=1 to n do

if i mod 2 = 1 then s:=s+i;

readln;

end.

uses crt;

var a:array[1..100]of real;

i,n:integer;

t:real;

begin

clrscr;

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];

writeln('Tong cua day la: ',t:4:2);

writeln('Trung binh cong cua day la: ',t/n:4:2);

readln;

end.

10 tháng 5 2021

Em cảm ơn ạ!

#include <bits/stdc++.h>

using namespace std;

int main()

{

int n,t=0,i,dem=0;

cin>>n;

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

if (i%2==0)

{

t=t+i;

dem++;

}

cout<<fixed<<setprecision(2)<<(t*1.0)/(dem*1.0);

return 0;

}