Python:Trung bình cộng Cho dãy gồm N số nguyên được nhập vào từ bàn phím và một số nguyên k. Yêu cầu: Cho biết trong dãy số đã cho có tồn tại hay không một cặp số mà trung bình cộng của chúng bằng k...

#Tin học lớp 10

0

G1

Game 178 Test

19 tháng 11 2021

nhập 1 số nguyên không quá 50 phần tử, đưa ra màng hình trung bình cộng chia hết cho 3 có trong dãy. Chèn số x vào vị trí số k trong dẫy (x,k nhập từ bàn phím )

1

G1

Game 178 Test

19 tháng 11 2021

Giải giúp em bài này với :((

NT

Nguyễn Thuận

17 tháng 3 2021

2: Viết chương trình sử dụng lệnh lặp để tính trung bình cộng của N số thực. Với số N và các số tính trung bình cộng được nhập vào từ bàn phím. Câu 3: Viết chương trình nhận biết một số tự nhiên N được nhập từ bàn phím có phải là số nguyên tố hay không.

3

BA

Bùi Anh Tuấn

17 tháng 3 2021

BA

Bùi Anh Tuấn

17 tháng 3 2021

NT

Nguyễn Trần Hồng Ngọc

6 tháng 5 2023

Hãy viết chương trình pascal nhập tên và lớp của học sinh, nhập từ bàn phím dãy số nguyên gồm n phần tử(n nhập từ bàn phím) n<12, tính trung bình cộng của dãy số trên và in ra màn hình, in ra màn hình các số nguyên tố của dãy số trên.

1

PS

Phía sau một cô gái

7 tháng 5 2023

program TinhTBCTimSoNT;

var
ten, lop: string;
n, i, tong, dem: integer;
A: array [1..11] of integer;
trung_binh: real;

function LaSoNguyenTo(x: integer): boolean;
var
i: integer;
begin
if x < 2 then
LaSoNguyenTo := false
else if x = 2 then
LaSoNguyenTo := true
else if x mod 2 = 0 then
LaSoNguyenTo := false
else
begin
i := 3;
while (i <= trunc(sqrt(x))) and (x mod i <> 0) do
i := i + 2;
LaSoNguyenTo := x mod i <> 0;
end;
end;

begin
// Nhập tên và lớp của học sinh
write('Nhập tên của học sinh: ');
readln(ten);
write('Nhập lớp: ');
readln(lop);

// Nhập dãy số nguyên và tính trung bình cộng
repeat
write('Nhập số phần tử của dãy số (n<12): ');
readln(n);
until n < 12;
tong := 0;
for i := 1 to n do
begin
write('Nhập phần tử thứ ', i, ': ');
readln(A[i]);
tong := tong + A[i];
end;
trung_binh := tong / n;

// In tên, lớp, dãy số và trung bình cộng ra màn hình
writeln('Học sinh: ', ten);
writeln('Lớp: ', lop);
write('Dãy số: ');
for i := 1 to n do
write(A[i], ' ');
writeln;

// In các số nguyên tố của dãy số ra màn hình
writeln('Các số nguyên tố của dãy số:');
for i := 1 to n do
if LaSoNguyenTo(A[i]) then
writeln(A[i]);
end.

KN

Khang Ngo

20 tháng 4 2023

viết chương trình nhập 1 dãy số nguyên gồm n phần tử, tính trung bình cộng dãy số vừa nhập (n đc nhập từ bàn phím) trong thony

1

KN

Khang Ngo

20 tháng 4 2023

N=int(input(‘n=’))

A=[0]*n

For I in range(0,n):

A=int(input(a[‘+str(i+1)+’]=’))

S=s+a[i]

S₁ =s/n

Print(s₁)

N

ngochieu123

2 tháng 2 2021

nhập vào từ bàn phím n số nguyên .tính trung bình cộng các số lẻ trong dãy

- Sửa một số tại vị trí thứ k trong dãy. Nhập vào một vị trí k cần sửa, chương trình cho biết giá trị phần tử ở vị trí k đó và yêu cầu nhập giá trị cần sửa.- Chèn một số vào vị trí k, nhập từ bàn phím vị trí k và giá trị cần chèn vào dãy số.- In dãy số hiện hành ra màn hình.- Thoát khỏi chương trìnhIn ra màn hình HAY CHON MOT TRONG CAC SO SAU: 1.Nhap day so...

1

NL

Nguyễn Lê Phước Thịnh

2 tháng 2 2021

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 a[i] mod 2<>0 then

begin

inc(dem);

t:=t+a[i];

end;

writeln('Trung binh cong cac so le la: ',t/dem:4:2);

readln;

end.

Đúng(2)

NA

nguyễn an phát

3 tháng 3 2021

1

NA

nguyễn an phát

17 tháng 4 2021

program bai_2;

uses crt;

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

n,i,j,tam,vt,vt2,x,x2,k,ch:byte;

procedure yc1;

begin

for i:=1 to n do

begin

write('nhap phan tu a[',i,']:');readln(a[i]);

end;

for i:=1 to n do write(a[i]:3);

end;

procedure yc2;

begin

for i:=1 to n do

begin

write('nhap phan tu a[',i,']:');readln(a[i]);

end;

for i:=1 to n-1 do

for j:=i+1 to n do

if a[i]>a[j] then

begin

tam:=a[i];

a[i]:=a[j];

a[j]:=tam;

end;

writeln('mang a:');for i:=1 to n do write(a[i]:3);

end;

procedure yc3;

begin

for i:=1 to n do

begin

write('nhap phan tu a[',i,']:');readln(a[i]);

end;

write('nhap so x:');readln(x);

for i:=n downto 1 do

if a[i]=x then vt:=i;if a[i]=x then writeln('vi tri cua ',x,' trong mang a la:',vt);writeln;

if a[i]<>x then writeln('khong tim thay ',x,' trong day so tren');writeln;

end;

procedure yc4;

begin

for i:=1 to n do

begin

write('nhap phan tu a[',i,']:');readln(a[i]);

end;

write('nhap so x2:');readln(x2);

for i:=n downto 1 do

if a[i]=x2 then vt2:=i;if x>0 then

begin

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

for i:=1 to n-1 do write(a[i]:3);

end

else if a[i]<>x2 then write('khong tim thay ',x2,' trong day so tren');

end;

procedure yc5;

begin

for i:=1 to n do

begin

write('nhap phan tu a[',i,']:');readln(a[i]);

end;

write('nhap vi tri:');readln(vt);

for i:=1 to n do

if (vt=i) then writeln('phan tu o vi tri ',vt,' la:',a[vt]:3);

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

for i:=n downto vt+1 do a[i]:=a[i-1];

write('nhap so can sua:');readln(a[vt]);

writeln('day so sau khi sua la:');

for i:=1 to n do write(a[i]:3); writeln;

end;

procedure yc6;

begin

for i:=1 to n do

begin

write('nhap phan tu a[',i,']:');readln(a[i]);

end;

write('nhap vi tri can chen k:');readln(k);

for i:=n+1 downto k+1 do a[i]:=a[i-1];

write('nhap so can chen vao day:');readln(a[k]);

writeln('day so sau khi chen ',a[k],' vao day la:');

for i:=1 to n+1 do write(a[i]:3);writeln;

end;

procedure yc7;

begin

for i:=1 to n do

begin

write('nhap phan tu a[',i,']:');readln(a[i]);

end;

for i:=1 to n do

write(a[i]:3);

writeln;

end;

BEGIN

clrscr;

while ch<8 do

begin

clrscr;

writeln('CHON MOT TRONG CAC SO SAU:');

writeln('1.NHAP DAY SO:');

writeln('2.SAP XEP DAY SO:');

writeln('3.TIM MOT SO:');

writeln('4.XOA MOT SO:');

writeln('5.SUA MOT SO:');

writeln('6.CHEN MOT SO:');

writeln('7.IN DAY SO:');

writeln('8.THOAT KHOI CHUONG TRINH:');

write('nhap so co yeu cau ban muon lam:');readln(ch);

if ch<8 then

begin write('nhap so n:');readln(n); end;

case ch of

1:yc1;

2:yc2;

3:yc3;

4:yc4;

5:yc5;

6:yc6;

7:yc7;

end;

readln;

end;

readln;

end.

a) Viết chương trình nhập vào một dãy số nguyên gồm k phần tử, giá trị của từng phần tử cũng nhập vào từ bàn phím. Sau đó tính tích của các số nhỏ hơn 30 có trong dãy số đã nhậpb) Viết chương trình nhập vào một dãy số nguyên gồm n phần tử, giá trị của từng phần tử cũng nhập vào từ bàn phím. Sau đó tính tổng các số nhỏ hơn 100 có trong dãy số đã...

DN

Đỗ Nguyễn Thùy Lâm

4 tháng 5 2023

1

KV

Kiều Vũ Linh

5 tháng 5 2023

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

i,k:integer;

p:longint;

begin

write('k = ');readln(k);

p:=1;

for i:=1 to k do

begin

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

if a[i]<30 then p:=p*a[i];

end;

write('Tich la ',p);

readln

end.

b)

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

i,k:integer;

s:longint;

begin

write('k = ');readln(k);

for i:=1 to k do

begin

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

if a[i]<100 then s:=s+a[i];

end;

write('Tong la ',s);

readln

end.

VH

Vũ hữu quyền

12 tháng 5 2021

viết chương trình trung bình cộng của giá trị lớn nhất và nhỏ nhất từ dãy n phần tử số nguyên được nhập vào bàn phím

2

NA

nguyễn an phát

12 tháng 5 2021

program tinh_trung_binh_cong;

uses crt;

var i,n,max,min:integer

tbc:real;

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

begin

clrscr;

write('nhap n:');readln(n);

for i;=1 to n do

begin

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

end;

max:=a[1];min:=a[1];

for i;1= to n do

begin

if max<a[i] then max:=a[i];

if min>a[i] then min:=a[i];

end;

tbc:=(max+min)/2;

writeln(tbc);

readln;

end

NL

Nguyễn Lê Phước Thịnh

12 tháng 5 2021

uses crt;

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

i,n,max,min:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

max:=a[1];

min:=a[1];

for i:=1 to n do

begin

if max<a[i] then max:=a[i];

if min>a[i] then min:=a[i];

end;

writeln((max+min)/2:4:2);

readln;

end.

Bài. Tính trung bình cộng các phần tử trong dãy Cho dãy số nguyên gồm N phần tử a1, a2, …, aN Yêu cầu: Tính trung cộng các phần tử trong dãy. Dữ liệu vào: File văn bản AVG.INP gồm + Dòng đầu ghi số N ; + Dòng thứ hai một dãy số nguyên a1, a2, …, aN (mỗi số cách nhau ít nhất một dấu cách). Dữ liệu ra: Ghi ra file văn bản AVG.OUT + Một số duy nhất là trung bình cộng các phần tử trong dãy(làm tròn một chữ số thập...

HC

huynh chinh

31 tháng 3 2022

#Tin học lớp 10

1

NL

Nguyễn Lê Phước Thịnh

31 tháng 3 2022

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

}