Viết Chương Trình Nhập Mảng 1 Chiều Gồm N Số Nguyên (N được ...

Học liệu Hỏi đáp Đăng nhập Đăng ký

• Học bài
• Hỏi bài
• Kiểm tra
• ĐGNL
• Thi đấu
• Thư viện số
• Bài viết Cuộc thi Tin tức Blog học tập
• Trợ giúp
• Về OLM

OLM App phiên bản mới, cập nhật trải nghiệm ngay!

🔥ĐẤU TRƯỜNG TRỞ LẠI, THỬ THÁCH TĂNG CẤP!!! THAM GIA NGAY

Chính thức mở đề thi thử tốt nghiệp THPT trên máy tính từ 27/12/2025, xem ngay.

OLM Class tuyển sinh lớp bứt phá học kỳ II! Đăng ký ngay

• Mẫu giáo
• Lớp 1
• Lớp 2
• Lớp 3
• Lớp 4
• Lớp 5
• Lớp 6
• Lớp 7
• Lớp 8
• Lớp 9
• Lớp 10
• Lớp 11
• Lớp 12
• ĐH - CĐ

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.

Xác nhận câu hỏi phù hợp

×

Chọn môn học Tất cả Toán Vật lý Hóa học Sinh học Ngữ văn Tiếng anh Lịch sử Địa lý Tin học Công nghệ Giáo dục công dân Âm nhạc Mỹ thuật Tiếng anh thí điểm Lịch sử và Địa lý Thể dục Khoa học Tự nhiên và xã hội Đạo đức Thủ công Quốc phòng an ninh Tiếng việt Khoa học tự nhiên Mua vip

• Tất cả
• Mới nhất
• Câu hỏi hay
• Chưa trả lời
• Câu hỏi vip

BT bùi thị kim liên 24 tháng 11 2021 - olm

Viết chương trình nhập mảng 1 chiều gồm N số nguyên (N được nhập từ bàn phím <=250). Tính và in ra màn hình Tổng của cá phần tử chia hết cho 3 có trong mảng vừa nhập.

#Hỏi cộng đồng OLM #Tin học lớp 11 5 LT Lê Thị Thu Huyền 24 tháng 11 2021

bprogram min 

uses crt 

var A: array [1...250] of integer

tong :integer;

begin 

tong:=0

writeln(‘nhap n:’); readln (n) 

forr i:=1 to n do 

begin 

writeln (‘nhap phan tu thu ‘,i);

readln (A[i] );

end

for i:=1 to n do 

begin

if (A[i] mod 3=0) 

then tong:=tong +A[i];

end

writeln (Tong cac phan tu chia het cho 3) 

readln ;

end

Đúng(0) PV Phạm Văn Dũng 24 tháng 11 2021 Đúng(0) VA Võ Anh Tuấn 24 tháng 11 2021

Program Vidu; Uses crt; Type Mang1C = array[1..250] of Integer;  Var A:Mang1C; i:integer; Begin         clrscr;         Writeln         For i:=1 to 250 do          Begin                 Write                 Readln         End;         Write         For i:=1 to 250 do                 Write         Readln; End.

Đúng(0) HH H Hương Niê Brit 24 tháng 11 2021

Uses crt ;

Var a : aray [1...250] of integer; 

i, n ,dem , t: teger ;

begin 

clrscr ;

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

For i := 1 to n do

begin 

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

end;

 

 

 

Đúng(0) NH Nguyễn Hoàng Tấn Đạt 24 tháng 11 2021

uses crt;

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

i,n,đem,t:integer;

begin

clrscr;

write(nhap n=');

readln(n);

for i:=1 to n do

begin

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

readln(a[i]);

end;

{------------------xu-ly---------------} 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('so phan tu chân trong day la:',dem);

writeln('tong cac phan tu chan trong day la:',t);

readln;

end.

Đúng(0) Xem thêm câu trả lời Các câu hỏi dưới đây có thể giống với câu hỏi trên TN Thảo Nguyễn 24 tháng 12 2021

Viết  chương trình:

- Nhập mảng gồm n phần tử, với n được nhập vào từ bàn phím

- In mảng lên màn hình

- In ra màn hình số phần tử chia hết cho 2

- Tính và in ra màn hình tổng các phần tử của mảng

#Hỏi cộng đồng OLM #Tin học lớp 11 1 NL Nguyễn Lê Phước Thịnh 24 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

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

int main()

{

cin>>n;

t=0;

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

{

cin>>a[i];

t=t+a[i];

}

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

cout<<endl;

dem=0;

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

if (a[i] %2==0) dem++;

cout<<dem<<endl;

cout<<t;

return 0;

}

Đúng(0) HH Huy Hoàng Phạm 20 tháng 12 2021 Viết chương trình nhập vào 1 mảng 1 chiều gồm n phần tử (với n được nhập vào từ bàn phím). Hãy thực hiện các công việc sau:- Nhập các phần tử mảng từ bàn phím.- Hiển thị mảng vừa nhập ra màn hình.- In ra màn hình các số chính phương trong mảng.- Đếm trong mảng có bao nhiêu phần tử có giá trị bằng 5. Nếu không có phần tử nào có giá trị bằng 5 thì in ra màn hình thông báo “Không có...Đọc tiếp

Viết chương trình nhập vào 1 mảng 1 chiều gồm n phần tử (với n được nhập vào từ bàn phím). Hãy thực hiện các công việc sau:

- Nhập các phần tử mảng từ bàn phím.

- Hiển thị mảng vừa nhập ra màn hình.

- In ra màn hình các số chính phương trong mảng.

- Đếm trong mảng có bao nhiêu phần tử có giá trị bằng 5. Nếu không có phần tử nào có giá trị bằng 5 thì in ra màn hình thông báo “Không có phần tử nào thỏa mãn điều kiện”

#Hỏi cộng đồng OLM #Tin học lớp 11 1 NL Nguyễn Lê Phước Thịnh 20 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

long long n,i,a[10000];

int main()

{

cin>>n;

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

cin>>a[i];

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

return 0;

}

Đúng(1) NH nguyễn hoàng long 21 tháng 1 2022 viết chương trình nhập vào mảng một chiều.gồm phần tử số nguyên N được nhập từ bàn phím. N nguyên, dương, N<=10A, in mảng vừa nhập ra màn hìnhB, tính tổng các phần tử có giá trị chẵn, in kết qua ra màn hìnhC, đếm số lượng các phần tử chia hết cho 3D, tính trung bình cộng các số có giá trị lẻE, in ra màn hình các phần tử là số nguyên tốmong được giúp...Đọc tiếp

viết chương trình nhập vào mảng một chiều.gồm phần tử số nguyên N được nhập từ bàn phím. N nguyên, dương, N<=10

A, in mảng vừa nhập ra màn hình

B, tính tổng các phần tử có giá trị chẵn, in kết qua ra màn hình

C, đếm số lượng các phần tử chia hết cho 3

D, tính trung bình cộng các số có giá trị lẻ

E, in ra màn hình các phần tử là số nguyên tố

mong được giúp đỡ 

#Hỏi cộng đồng OLM #Tin học lớp 11 1 NH nguyễn hoàng long 21 tháng 1 2022

viết chương trình chứ không phải chọn đáp án 

Đúng(0) NL Nguyễn Lê Phước Thịnh 21 tháng 1 2022

#include <bits/stdc++.h>

using namespace std;

long long a[100],n,i,t,t1,dem,dem1;

//chuongtrinhcon

bool ktnt(long long x)

{

if (x<=1) return(false);

for (int i=2; i*i<=x; i++)

if (x%i==0) return(false);

return true;

}

//chuongtrinhchinh

int main()

{

cin>>n;

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

{

cin>>a[i];

}

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

cout<<endl;

t=0;

for (i=1; i<=n; i++) if (a[i]%2==0) t=t+a[i];

cout<<t<<endl;

dem=0;

for (i=1; i<=n; i++) if (a[i]%3==0) dem++;

cout<<dem<<" ";

t1=0;

dem1=0;

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

if (a[i]%2!=0)

{

t1+=a[i];

dem1++;

}

cout<<fixed<<setprecision(2)<<(t1*1.0)/(dem1*1.0)<<endl;

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

if (ktnt(a[i])==true) cout<<a[i]<<" ";

return 0;

}

Đúng(1) NT Nguyễn tiên 20 tháng 1 2022 viết chương trình nhập vào mảng một chiều.gồm phần tử số nguyên N được nhập từ bàn phím. N nguyên, dương, N<=10A, in mảng vừa nhập ra màn hìnhB, tính tổng các phần tử của mảng, in kết qua ra màn hìnhC, đếm số lượng các phần tử có giá trị dươngD, tính trung bình cộng các số có giá trị chẵnE, in ra màn hình các phần tử là số hoàn hảoGiúp mình với...Đọc tiếp

viết chương trình nhập vào mảng một chiều.gồm phần tử số nguyên N được nhập từ bàn phím. N nguyên, dương, N<=10

A, in mảng vừa nhập ra màn hình

B, tính tổng các phần tử của mảng, in kết qua ra màn hình

C, đếm số lượng các phần tử có giá trị dương

D, tính trung bình cộng các số có giá trị chẵn

E, in ra màn hình các phần tử là số hoàn hảo

Giúp mình với ạ 

#Hỏi cộng đồng OLM #Tin học lớp 11 3 NL Nguyễn Lê Phước Thịnh 20 tháng 1 2022

uses crt;

var a:array[1..10]of longint;

n,i,t,dem,dem1,dem2,t1:integer;

begin

clrscr;

readln(n);

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

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

writeln;

t:=0;

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

writeln(t);

t1:=0;

dem1:=0;

dem2:=0;

for i:=1 to n do 

  begin

if a[i]>0 then dem1:=dem+1;

if a[i] mod 2=0 then 

begin

dem2:=dem2+1;

t1:=t1+a[i];

end;

end;

writeln(dem1);

writeln(t1/dem2:4:2);

readln;

end.

Đúng(1) CX Chanh Xanh 20 tháng 1 2022 Đúng(0) Xem thêm câu trả lời NT Nguyễn tiên 20 tháng 1 2022

viết chương trình nhập vào mảng một chiều.gồm phần tử số nguyên N được nhập từ bàn phím. N nguyên, dương, N<=10

A, in mảng vừa nhập ra màn hình

B, tính tổng các phần tử của mảng, in kết qua ra màn hình

C, đếm số lượng các phần tử có giá trị dương

D, tính trung bình cộng các số có giá trị chẵn

E, in ra màn hình các phần tử là số hoàn hảo

#Hỏi cộng đồng OLM #Tin học lớp 11 1 NL Nguyễn Lê Phước Thịnh 20 tháng 1 2022

uses crt;

var a:array[1..10]of longint;

n,i,t,dem,dem1,dem2,t1:integer;

begin

clrscr;

readln(n);

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

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

writeln;

t:=0;

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

writeln(t);

t1:=0;

dem1:=0;

dem2:=0;

for i:=1 to n do 

  begin

if a[i]>0 then dem1:=dem+1;

if a[i] mod 2=0 then 

begin

dem2:=dem2+1;

t1:=t1+a[i];

end;

end;

writeln(dem1);

writeln(t1/dem2:4:2);

readln;

end.

Đúng(0) KK Ken Kaneki 20 tháng 8 2021

Viết chương trình nhập vào một mảng nguyên, gồm n phần tử nhập từ bàn phím, hiển thị mảng đã nhập ra màn hình, tính tổng mảng.

 

#Hỏi cộng đồng OLM #Tin học lớp 11 1 NL Nguyễn Lê Phước Thịnh 21 tháng 8 2021

uses crt;

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

i,n,t:integer;

begin

clrscr;

readln(n);

for i:=1 to n do 

begin

readln(a[i]);

end;

for i:=1 to n do 

  write(a[i]:4);

readln;

t:=0;

for i:=1 to n do 

 t:=t+a[i];

writeln(t);

readln;

end.

Đúng(2) KK Ken Kaneki 20 tháng 8 2021

Viết chương trình nhập vào một mảng nguyên, gồm n phần tử nhập từ bàn phím, in mảng đã nhập ra màn hình, tính trung bình cộng của mảng đó.

 

#Hỏi cộng đồng OLM #Tin học lớp 11 1 NL Nguyễn Lê Phước Thịnh 21 tháng 8 2021

uses crt;

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

i,n,t:integer;

begin

clrscr;

readln(n);

for i:=1 to n do 

begin

readln(a[i]);

end;

for i:=1 to n do 

  write(a[i]:4);

readln;

t:=0;

for i:=1 to n do 

 t:=t+a[i];

writeln(t/n:4:2);

readln;

end.

Đúng(1) LH lamgi hoi 24 tháng 7 2021 Câu 1: Viết chương trình nhập n phần tử mảng 1 chiều là các số nguyên từ bàn phím, ghi mảng vừa nhập vào tệp MANG1CHIEU.TXT. Tìm giá trị nhỏ nhất trong mảng và đưa kết quả ra màn hìnhCâu 2: Viết chương trình nhập 1 xâu bất kỳ từ bàn phím, In ra xâu sau khi đã loại bỏ các kí tự là chữ cái và ghi vào tệp CHUSO.TXTgiúp em với ạ . em cảm ơn...Đọc tiếp

Câu 1: Viết chương trình nhập n phần tử mảng 1 chiều là các số nguyên từ bàn phím, ghi mảng vừa nhập vào tệp MANG1CHIEU.TXT. Tìm giá trị nhỏ nhất trong mảng và đưa kết quả ra màn hình

Câu 2: Viết chương trình nhập 1 xâu bất kỳ từ bàn phím, In ra xâu sau khi đã loại bỏ các kí tự là chữ cái và ghi vào tệp CHUSO.TXTgiúp em với ạ . em cảm ơn nhiều...

 

#Hỏi cộng đồng OLM #Tin học lớp 11 1 AP Anh Phạm 25 tháng 7 2021

cau 1:

uses crt;

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

n,i,min: integer;

begin

readln(n);

for i:=1 to n do

readln(a[i]);

min:=a[1];

for i:=2 to n do

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

writeln(a[i]);

readln;

end.

cau 2:

uses crt;

g:text;

s:string;

const fo='CHUSO.TXT';

begin

assign(g,fo);

rewrite(g);

readln(s);

for i:=1 to length(s) do

if not((s[i] in ['a'..'z'])and(s[i] in ['A'..'Z])) then delete(s,i,1);

writeln(g,s);

end.

Đúng(1) TN truc nguyen 18 tháng 2 2021

Câu 1: viết chương trình nhập vào từ bàn phím mảng nghiệm gồm 250 phần tử. Đưa ra màn hình mảng vừa nhập.

Câu 2: tổng các phân tử có trong mảng

#Hỏi cộng đồng OLM #Tin học lớp 11 4 ML Minh Lệ 18 tháng 2 2021

Câu 1:

Program HOC24;

var i.n: integer;

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

begin

for i:=1 to n do

begin

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

end;

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

readln

end.

Đúng(1) ML Minh Lệ 18 tháng 2 2021

Câu 2:

Program HOC24;

var i.n: integer;

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

t: longint;

begin

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('Tong cac phan tu trong mang la: ',t);

readln

end.

Đúng(1) Xem thêm câu trả lời Xếp hạng Tất cả Toán Vật lý Hóa học Sinh học Ngữ văn Tiếng anh Lịch sử Địa lý Tin học Công nghệ Giáo dục công dân Âm nhạc Mỹ thuật Tiếng anh thí điểm Lịch sử và Địa lý Thể dục Khoa học Tự nhiên và xã hội Đạo đức Thủ công Quốc phòng an ninh Tiếng việt Khoa học tự nhiên

• Tuần
• Tháng
• Năm

• LC ꧁lẹo chó꧂ 7 GP
• D Đ𝙖̆𝙣𝙜 𝙈𝙞𝙣𝙝 (𝙈𝙚𝙤𝙠𝙤𝙣𝙝𝙤𝙣𝙜𝙪𝙤𝙣𝙜𝙩𝙝𝙪𝙤𝙘) 4 GP
• IO ꧁𖤓⫸ ⟫彡ɠíᵃþ ⁋ʜØ🅽ɠ彡⟪ ⫷𖤓꧂ 2 GP
• NT Nguyễn Thị Thảo Linh 2 GP
• O ◥◣︿◢◤𝓷𝓪𝓶𝓴𝓱ô𝓷𝓰𝓷𝓱â𝔂╰(*°▽°*)╯ 2 GP
• NT Nguyễn Thị Bảo Linh 2 GP
• DA Dương Anh Thư 2 GP
• NN Nguyễn Ngọc Khánh An VIP 2 GP
• NX ✿ngoann xinhh iuu~✿ VIP 2 GP
• MT 🎀🔱🎵☆MiN Tổng☆🎵🔱🎀 VIP 2 GP

Học liệu Hỏi đáp Link rút gọn Link rút gọn Để sau Đăng ký

Các khóa học có thể bạn quan tâm

× Mua khóa học Tổng thanh toán: 0đ (Tiết kiệm: 0đ) Tới giỏ hàng Đóng ×

Yêu cầu VIP

×

Học liệu này đang bị hạn chế, chỉ dành cho tài khoản VIP cá nhân, vui lòng nhấn vào đây để nâng cấp tài khoản.