sử dụng con trỏ để làm các bài tập sau đây 1.1 Mảng một chiều Nhập vào một mảng gồm n phần tử nguyên (1 ≤ n ≤ 10,000) và một số nguyên X: o Những phần tử nào (in ra cả giá trị và vị trí của phần tử...

TN

Trần Ngọc Phong

24 tháng 1 2022

sử dụng con trỏ để làm các bài tập sau đây 1.1 Mảng một chiều Nhập vào một mảng gồm n phần tử nguyên (1 ≤ n ≤ 10,000) và một số nguyên X: o Những phần tử nào (in ra cả giá trị và vị trí của phần tử đó) là ước số của X? o Dồn những phần tử là ước số của X về cuối mảng. Sắp xếp các phần tử không phải là ước số của X theo thứ tự tăng dần (giữ nguyên vị trí các phần tử là ước số...

Đọc tiếp

sử dụng con trỏ để làm các bài tập sau đây 1.1 Mảng một chiều

 Nhập vào một mảng gồm n phần tử nguyên (1 ≤ n ≤ 10,000) và một số nguyên X: o Những phần tử nào (in ra cả giá trị và vị trí của phần tử đó) là ước số của X? o Dồn những phần tử là ước số của X về cuối mảng. Sắp xếp các phần tử không phải là ước số của X theo thứ tự tăng dần (giữ nguyên vị trí các phần tử là ước số của X).

 Nhập vào một mảng các số nguyên dương gồm n phần tử (1 ≤ n ≤ 15): o Đếm số phần tử tận cùng là 6 và chia hết cho 6 trong mảng o Tính trung bình cộng các số nguyên tố hiện có trong mảng o Cho biết trong mảng có bao nhiêu số nguyên tố phân biệt

 Cho mảng A gồm n < 1000 phần tử nguyên |A[i]| ≤ 10,000. Viết hàm thực hiện các công việc sau: o Trích những phần tử trong A không phải số nguyên tố ra mảng B o Sắp giảm các số nguyên trong mảng B o Xóa những số nguyên tố trong mảng A

 Nhập 2 dãy số nguyên A, B gồm m, n phần tử (1 ≤ n, m ≤ 25): o Xuất ra những phần tử có trong A mà không có trong B o Ghép A, B thành C sao cho C không có phần tử trùng nhau 1.2 Mảng hai chiều

 Nhập xuất ma trận số nguyên

 Tính tổng các phần tử dương trong ma trận

 Đếm số lượng số nguyên tố trong ma trận

 Tìm số lớn nhất trên biên ma trận.

 Tìm số dương nhỏ nhất trong ma trận

 Liệt kê các dòng có chứa các giá trị âm trong ma trận.

 Liệt kê các dòng chứa toàn số chẵn trong ma trận.

 Đếm số lượng giá trị “Yên ngựa” trên ma trận. Một phần tử được gọi là “yên ngựa” khi nó lớn nhất trên dòng và nhỏ nhất trên cột.

 Đếm số lượng giá trị “Hoàng hậu” trên ma trận. Một phần tử được gọi là hoàng hậu khi nó lớn nhất trên dòng, trên cột và hai đường chéo đi qua nó

 Tính tổng các phần tử cực trị trong ma trận. Một phần tử gọi là cực trị khi nó lớn hơn các phần tử xung quanh hoặc nhỏ hơn các phần tử xung quanh.

 Tìm chữ số xuất hiện nhiều nhất trong ma trận

 Sắp xếp các giá trị nằm trên biên ma trận tăng dần theo chiều kim đồng hồ

#Tin học lớp 12

1

NL

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

24 tháng 1 2022

Bạn tách ra đi bạn

Đúng(0)

PG

Phạm Gia Bình

24 tháng 8 2021

- Viết chương trình nhập 1 mảng số nguyên gồm n phần tử

- In ra tất cả phần tử của mảng vừa nhập

- Đếm xem có bao nhiêu phần tử có giá trị là ước của 10.

- In ra các phần tử ở vị trí chẵn.

- In ra các phần tử ở vị trí lẻ.

#Tin học lớp 8

1

ML

Minh Lệ

24 tháng 8 2021

Program HOC24;

var d,i,n: integer;

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

begin

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

for i:=1 to n do

begin

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

end;

write('Cac phan tu cua mang vua nhap la: ');

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

writeln;

d:=0;

for i:=1 to n do if 10 mod a[i]=0 then d:=d+1;

writeln('Co ',d,' phan tu co gia tri la uoc cua 10');

write('Cac phan tu o vi tri chan la: ');

for i:=1 to n do if i mod 2=0 then write(a[i],' ');

writeln;

write('Cac phan tu o vi tri le la: ');

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

readln

end.

Đúng(1)

MN

Minh Nguyễn

4 tháng 4 2022

Nhập vào một mảng A kiểu số nguyên gồm n phân tử (1≤n≤20). In ra các giá trị của các phần tử và nhập.

#Tin học lớp 8

1

NL

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

4 tháng 4 2022

#include <bits/stdc++.h>

using namespace std;

long long a[20],i,n;

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(0)

NN

Nguyễn Ngọc Quỳnh Như

3 tháng 4 2019

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)

BN

bảo nhi

29 tháng 4 2023

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) Tính và in ra màn hình trung bình cộng giá trị phần tử của mảng

#Tin học lớp 8

1

KV

Kiều Vũ Linh

29 tháng 4 2023

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

i,n:integer;

s:longint;

tbc:real;

Begin

Repeat

Write('n = ');readln(n);

Until (n>0) and (n<=100);

For i:=1 to n do

Begin

Write('Nhap phan tu thu ',i);readln(a[i]);

s:=s+a[i];

End;

tbc:=s/n;

Write('Trung binh cong la ',tbc:10:2);

Readln

End.

Đúng(2)

MT

my trần

29 tháng 8 2021

1. Viết chương trình nhập vào mảng gồm n số nguyên, - Đếm và đưa ra số phần tử chẵn của mảng - đưa ra số chẵn lớn nhất trong mảng - Tính tổng các số ở vị trí lẻ trong mảng - Tìm giá trị phần tử lẻ nhỏ nhất

#Tin học lớp 8

1

NL

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

30 tháng 8 2021

uses crt;

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

i,n,dem,max,t,min,dem1:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

dem:=0;

max:=-32000;

for i:=1 to n do

begin

if a[i] mod 2=0 then

begin

dem:=dem+1;

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

end;

if dem=0 then writeln('Trong day khong co so chan')

else begin

writeln('So so chan la: ',dem);

writeln('So chan lon nhat la: ',max);

end;

t:=0;

for i:=1 to n do

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

writeln('Tong cac so o vi tri le la: ',t);

min:=maxint;

dem1:=0;

for i:=1 to n do

if a[i] mod 2<>0 then

begin

inc(dem1);

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

end;

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

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

readln;

end.

Đúng(1)

VT

Võ Thu Hằng

8 tháng 3 2021

viết chương trình nhập vào mảng một chiều gồm N số nguyên (N<=1000 và mảng A gồm N số nguyên A1,A2,A3,...,An có giá trị tuyệt đối không lớn hơn 1000 hãy đưa ra màng hình những thông tin sau A nhập mảng B in mảng C đếm xem có bao nhiêu phần tử = 0 trong dãy D tính tổng các phần tử chẵn trong dãy giúp vs...

Đọc tiếp

#Tin học lớp 11

1

NL

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

8 tháng 3 2021

uses crt;

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

i,n,dem,t:integer;

begin

clrscr;

repeat

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

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

for i:=1 to n do

begin

repeat

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

until abs(a[i])<=1000;

end;

for i:=1 to n do

write(a[i]:4);

writeln;

dem:=0;

for i:=1 to n do

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

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

t:=0;

for i:=1 to n do

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

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

readln;

end.

Đúng(1)

NQ

Nguyễn Quang Kiệt

24 tháng 12 2021

viết chương trình nhập vào từ bàn phím mảng một chiều C, gồm N phần tử (N<=50).giá trị các phần tử là số nguyên dương , đưa ra màn hình vừa nhập và số lượng phần tử có giá trị chẵn

#Tin học lớp 11

2

NL

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

24 tháng 12 2021

Đề thiếu rồi bạn

Đúng(1)

DB

Dương Bảo Nguyên

3 tháng 4 2022

uses crt;

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

i, n : integer;

begin

clrscr;

write('Nhap so phan tu : '); readln(n);

write('Nhap day gom ', n ,' so : ');

for i := 1 to n do read(C[i]);

write('Cac gia tri chan : ');

for i := 1 to n do

if C[i] mod 2 = 0 then write(C[i], ' ');

readln

end.

Đúng(0)

HL

Hương Lê

10 tháng 5 2023

1:Viết chương trình Pascal nhập vào mảng a gồm n phần tử nguyên (n<100). Sau đó in ra màn hình mảng vừa nhập, tính giá trị của các phần tử có giá trị là số chẵn, in tổng đó.2:Viết chương trình Pascal nhập vào mảng a gồm n phần tử nguyên (n<100). Sau đó in ra màn hình mảng vừa nhập, tính giá trị của các phần tử có giá trị là số lẻ, in tổng đó.giúp mik 2 câu này với...

Đọc tiếp

#Tin học lớp 8

2

KV

Kiều Vũ Linh

10 tháng 5 2023

Bài 1

Var a:array:[1..99] of integer;

i,n:integer;

s:longint;

Begin

Repeat

Write('n = ');readln(n);

Until (n > 0) and (n < 100);

For i:=1 to n do

Begin

Write('Nhap diem thu ',i,' = ');readln(a[i]);

if a[i] mod 2 = 0 then s:=s+a[i];

End;

Write('Cac so vua nhap la: ');

For i:=1 to n do

Write(a[i]:8);

writeln;

write('Tong cac so chan la ',s);

Readln

End.

Đúng(2)

KV

Kiều Vũ Linh

10 tháng 5 2023

Bài 2

Var a:array:[1..99] of integer;

i,n:integer;

s:longint;

Begin

Repeat

Write('n = ');readln(n);

Until (n > 0) and (n < 100);

For i:=1 to n do

Begin

Write('Nhap diem thu ',i,' = ');readln(a[i]);

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

End;

Write('Cac so vua nhap la: ');

For i:=1 to n do

Write(a[i]:8);

writeln;

write('Tong cac so le la ',s);

Readln

End.

Đúng(2)

V

Vochehoang

13 tháng 4 2021

Viết chương trình nhập vào một số nguyên gồm n phần tử. Tính tổng của các phần tử của các dãy số đó.Viết chương trình nhập vào một mảng số nguyên gồm n phần tử . Nhập vào một số nguyên x bất kì a) Kiểm tra x có trong dãy hay ko hiển thị vị trí của x b) Đếm xem x xuất hiện bao nhiêu lầnMọi người giúp vs , cần gấp...

Đọc tiếp

#Tin học lớp 8

2

NL

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

13 tháng 4 2021

Câu 1:

uses crt;

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

i,n,t:integer;

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(t);

readln;

end.

Đúng(1)

NL

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

13 tháng 4 2021

Câu 2:

uses crt;

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

i,n,x,dem,kt:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

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

kt:=0;

dem:=0;

for i:=1 to n do

if a[i]=x then

begin

kt:=1;

write(i:4);

inc(dem);

end;

if kt=0 then writeln('Khong co ',x,' trong day');

writeln(x,' xuat hien ',dem,' lan trong day');

readln;

end.

Đúng(1)

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