Lập trình thực hiện các công việc sau và hiển thị kết quả ra màn hình:A,Nhập vào một mảng số nguyên A gồm n phần tửB,Cho biết phần tử dương nhỏ nhất trong mảngC,Nhập vào một số nguyên k và cho biết k...

DP

Diễm Phạm Thị Hồng

31 tháng 7 2023

Lập trình thực hiện các công việc sau và hiển thị kết quả ra màn hình:A,Nhập vào một mảng số nguyên A gồm n phần tửB,Cho biết phần tử dương nhỏ nhất trong mảngC,Nhập vào một số nguyên k và cho biết k có xuất hiện trong mảng hay không?Nếu có,tại những vị trí k xuất hiện trong mảng thay k bằng giá trị 0 rồi viết kết quả ra màn hìnhD,Sắp xếp mảng theo chiều âm lên trước rồi đến số dương,cuối...

Đọc tiếp

#Tin học lớp 11

1

DP

Diễm Phạm Thị Hồng

31 tháng 7 2023

Mn giúp e vơi e đang cần gấp!!!!!

Đúng(0)

MH

Minh Hoạt

6 tháng 4 2021

viết chương trình nhập mảng một chiều gồm n phần tử n<=100 kiểu nguyên rồi thực hiện (nhập từ bàn phím hoặc nhập ngẫu nhiên)a. Đếm số lượng phần tử dương cho kết quả ra màn hìnhb. Tính tổng các phần tử dương trong mảngc. Tính trung bình các phần tử trong mảngd. Tính trung bình các phần tử dương trong mảnge. Tìm vị trí đầu tiên cảu phần tử =k với k nhập từ bàn phímf. Tìm vị trí phần tử =k với k...

Đọc tiếp

#Tin học lớp 11

1

NL

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

6 tháng 4 2021

uses crt;

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

i,n,dem,t,tb: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]>0 then

begin

dem:=dem+1;

t:=t+a[i];

end;

writeln('So luong phan tu duong la: ',dem);

writeln('Tong cac phan tu duong la: ',t);

writeln('Trung binh cac phan tu duong la: ',t/dem:4:2);

readln;

end.

Đúng(2)

NT

nông thị ngân

22 tháng 3 2021

Viết chương trình nhập vào từ bàn phím mảng B gồm N số nguyên (N<=200)và 1 số nguyên dương k:

1. Tính tổng các phần tử lẻ trong mảng A và đưa kết quả ra màn hình?

2. Tính tổng các phần tử là bội của K trong mảng A và đưa kết quả ra màn hình?

#Tin học lớp 11

1

NL

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

22 tháng 3 2021

uses crt;

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

n,i,k,t,t1:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

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

t:=0;

for i:=1 to n do

if a[i] mod 2<>0 then t:=t+a[i];

t1:=0;

for i:=1 to n do

if a[i] mod k=0 then t1:=t1+a[i];

writeln('Tong cac phan tu le la: ',t);

writeln('Tong cac phan tu la boi cua ',k,' la: ',t1);

readln;

end.

Đúng(1)

DH

Đại Hà

18 tháng 12 2021

Câu 3: Nhập một mảng gồm N phần tử.

A, tính tổng chẵn, tổng lẻ của các phấn tử trong mảng.

B, Tìm phần tử lớn nhất, nhỏ nhất trong mảng.

C, Tìm kiếm xem phần tử K nào đó có tồn tại trong mảng hay không?

Đú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ó phần tử nào thỏa mãn điều...

Đọc tiếp

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

LC

Linh Chi

22 tháng 3 2021

viết trương trình nhập vào từ bàn phím mảng A gồm N số nguyên và 1 số nguyên dương k:1, đếm số lượng phần tử chẵn trong mảng A và đưa kết quả ra màn hình?2, đếm số lượng phần tử là bội của k trong mảng A và đưa kết quả ra màn hình?giúp em với ạ em cầ...

#Tin học lớp 11

1

NL

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

22 tháng 3 2021

uses crt;

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

n,i,k,dem,dem1:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

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

dem:=0;

dem1:=0;

for i:=1 to n do

begin

if a[i] mod 2=0 then inc(dem);

if a[i] mod k=0 then inc(dem1);

end;

writeln('So phan tu chan la: ',dem);

writeln('So phan tu chia het cho ',k,' la: ',dem1);

readln;

end.

Đúng(1)

BP

bui pham phuong Uyen

27 tháng 1 2021

bài 1:Viết chương trình nhập vào một mảng số nguyên gồm n phần tử(n<100) nhập từ bàn phím thực hiện các công việc sau: a)In ra màn hình các phần tử của mảng vừa nhập.b) Sắp xếp dãy số nguyên theo thứ tự tăng dần.c) Nhập số nguyên x bất kì.Tính số chắn lớn nhất không được vượt quá...

Đọc tiếp

#Tin học lớp 11

1

NL

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

27 tháng 1 2021

Bài 1:

uses crt;

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

i,n,kt,max,x,j,tam:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

writeln('Mang ban vua nhap la: ');

for i:=1 to n do

write(a[i]:4);

writeln;

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('Day tang dan la: ');

for i:=1 to n do

write(a[i]:4);

writeln;

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

max:=0;

kt:=0;

for i:=1 to n do

if (a[i] mod 2=0) and (a[i]<=x) then

begin

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

kt:=1;

end;

if kt=0 then writeln('Trong day khong co so le')

else writeln('So chan lon nhat khong vuot qua ',x,' la: ',max);

readln;

end.

Đúng(1)

NN

Nguyễn Ngọc Quỳnh Như

3 tháng 4 2019 - olm

1.Viết chương trình tìm giá trị lớn nhất của một mảng chứa các số Z gồm N phần tử.

2.Viết chương trình nhập vào một mảng gồm N số nguyên. Sắp xếp lại mảng theo thứ tự tăng dần và in ra kết quả màn hình.

3.Viết chương trình nhập vào một mảng A gồm N số nguyên và nhập thêm vào một số nguyên X. Hãy kiểm tra xem phần tử X có trong mảng A hay không ?

#Toán lớp 8

2

NC

Nguyễn Công Tỉnh

3 tháng 4 2019

1.

Program Tim_Max;
Var A:Array[1..255] of Integer;
i, n, Max: Integer;
Begin
Write('Nhap n: '); Readln(n);
For i := 1 to n do
Begin
Write('Nhap phan tu A[',i,'] = '); Readln(A[i]);
End;
Max := A[1];
For i := 2 to n do if A[i]>Max then Max := A[i];
Write('Phan tu lon nhat la :',Max);
Readln
End.

2.

Uses Crt;
Type Mang = ARRAY[1..50] Of Integer;
Var A:Mang;
N,i,j,Tam:Integer;
Begin
{Nhập mảng}
Write('Nhap N='); Readln(N);
For i:=1 To N Do
Begin
Write('A[',i,']='); Readln(A[i]);
End;
{Sắp xếp}
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;
{In kết quả ra màn hình}
Writeln('Ket qua sau khi sap xep:');
For i:=1 To N Do Write(A[i]:5);
Readln;
End.

3.

Uses Crt;
Type Mang = ARRAY[1..50] Of Integer;
Var A:Mang;
N,i,x:Integer;

Function TimKiem(x, N: Integer; A:Mang):Integer;
Var i:Integer;
Begin
I:=1;
While (I <= N) and (X<>A[I]) do I:=I+1; {{{{tại sao lại phải làm như bước này, tại sao lại lấy i đi so sánh với N}}}}
If I <= N Then Timkiem:=I Else Timkiem:=0;
End;

Begin
{Nhập mảng}
Write(‘Nhap N=’); Readln(N);
For i:=1 To N Do
Begin
Write(‘A[‘,i,’]=’); Readln(A[i]);
End;
Write(‘Nhap X=’); Readln(x);
{Kết quả tìm kiếm}
If TimKiem(X,N,A)<>0 Then
Writeln(‘Vi tri cua X trong mang la:’, TimKiem(X,N,A))
Else Writeln(‘X khong co trong mang.’);
Readln;
End.

Đúng(0)

NC

Nguyễn Công Tỉnh

3 tháng 4 2019

câu 1 tham khảo cái này nhé

Uses Crt;

Type Mang = ARRAY[1..50] Of Integer;

Var A:Mang;

N,i,Max:Integer;

Begin

Write('Nhap N='); Readln(N);

For i:=1 To N Do

Begin

Write('A[',i,']='); Readln(A[i]);

End;

Max:=A[1];

For i:=2 To N Do

If Max<A[i] Then Max:=A[i];

Writeln('Phan tu lon nhat cua mang:', Max);

Readln;

End.

Đúng(0)

TV

Thuý Vy

17 tháng 1 2021

viết chương trình nhập vào mảng 1 chiều A gồm có n phần tử là kiểu số nguyên 1=1000 cho biết trong mảng có bao nhiêu phần tử chia hết cho 3 xuất mảng và hiển thị kết quả

#Tin học lớp 11

1

NL

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

17 tháng 1 2021

uses crt;

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

i,n,dem:integer;

begin

clrscr;

repeat

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

until (1<=n) and (n<=1000);

for i:=1 to n do

begin

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

end;

writeln('Mang ban vua nhap la: ');

for i:=1 to n do

write(a[i]:4);

writeln;

dem:=0;

for i:=1 to n do

if a[i] mod 3=0 then inc(dem);

writeln('So phan tu chia het cho 3 la: ',dem);

readln;

end.

Đúng(0)

B

Benny

7 tháng 3 2023

BT1: Viết chương trình nhập vào một mảng gồm 10 phần tử số nguyên. In ra màn hình mảng vừa nhập và tính tổng các phần tử trong mảng. BT2: Viết chương trình nhập vào một mảng gồm 10 phần tử số thực. In ra màn hình các phần tử có chỉ số chẵn trong mảng. BT3: Viết chương trình nhập vào một mảng gồm n phần tử số nguyên. In ra màn hình các phần tử có giá trị chẵn trong mảng. BT4: Viết...

Đọc tiếp

#Tin học lớp 11

1

NL

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

9 tháng 3 2023

6:

#include <bits/stdc++.h>

using namespace std;

int main()

{

int n,A[100],i,dem=0;

cin>>n;

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

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

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

cout<<dem;

return 0;

}

5:

#include <bits/stdc++.h>

using namespace std;

int main()

{

long long n,nn=1e6,A[1000];

cin>>n;

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

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

nn=min(nn,A[i]);

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

if (nn==A[i]) cout<<i<<" ";

return 0;

}

Đúng(0)

QN

Quân Nguyễn

25 tháng 6 2021

Nhập mảng một chiều gồm m số nguyên ( 0<m<50). Viết chương trìnhthực hiện các công việc sau:a. Nhập mảng từ bàn phím.b. Hiển thị mảng ra màn hình.c. Tổng các phần tửd. Tìm và in số nhỏ nhất cùng số lần xuất hiện của nó trong dãyhuhu mng giúp mình với ạ, dùng #include<stdio.h> mng nhé huhu gấp lắm ạ ngày kia thi...

Đọc tiếp

#Tin học lớp 11

1

NL

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

26 tháng 6 2021

uses crt;

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

m,n,t,min,vt:integer;

begin

clrscr;

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

for i:=1 to m do

begin

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

end;

for i:=1 to m do

write(a[i]:4);

writeln;

t:=0;

for i:=1 to m do

t:=t+a[i];

writeln('Tong cac phan tu la: ',t);

min:=a[1];

for i:=1 to n do

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

vt:=0;

for i:=1 to n do

if min=a[i] then inc(vt);

writeln('So nho nhat la: ',min);

writeln('So lan xuat hien la: ',vt);

readln;

end.

Đúng(2)

Chúng tôi đề xuất

Tài nguyên

Ứng dụng mobile

Bảng xếp hạng

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

Yêu cầu VIP