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.

Bài 1/ Viết chương trình nhập từ bàn phím hai dãy số nguyên A,B gồm n phần tử (n nhập từ bàn phím và n nhỏ hơn hoặc bằng 30). Trộn 2 dãy số trên thành dãy số mới C theo nguyên tắc sau:a=a1,a2,a3,..,an.b=b1,b2b,b3,...,bn.c=a1,b1,a2,b2,a3,b3,...,an,bn.Vd:   n=6.     A=4 5 6 1 2 3.     B=9 4 7 0 8 4.>> C=4 9 5 4 6 7 1 0 2 8 3 4 .Bài 2/ Nhập vào 1 dãy số nguyên. Cho biết dãy đã sắp xếp chưa tăng dần hay giảm dần. Nếu dãy đã sắp xép hãy...
Đọc tiếp

Bài 1/ Viết chương trình nhập từ bàn phím hai dãy số nguyên A,B gồm n phần tử (n nhập từ bàn phím và n nhỏ hơn hoặc bằng 30). Trộn 2 dãy số trên thành dãy số mới C theo nguyên tắc sau:

a=a1,a2,a3,..,an.

b=b1,b2b,b3,...,bn.

c=a1,b1,a2,b2,a3,b3,...,an,bn.

Vd:   n=6.     A=4 5 6 1 2 3.     B=9 4 7 0 8 4.

>> C=4 9 5 4 6 7 1 0 2 8 3 4 .

Bài 2/ Nhập vào 1 dãy số nguyên. Cho biết dãy đã sắp xếp chưa tăng dần hay giảm dần. Nếu dãy đã sắp xép hãy cho nhập số n bất kì và chèn vào dãy sao cho dãy vẫn đảm bảo được sắp xếp (không được sắp xếp sau khi chèn thêm). Nếu dãy chưa sắp xếp thì sắp xếp lại dãy tăng dần. 

Vd:   Dữ liệu vào: 5 6 7 8 9; n=6.

        Dữ liệu ra: dãy đã được sắp xếp tăng dần và sau khi chèn thêm n là: 5 6 6 7 8 9.

" giúp e vs 19h 29/7 e nộp r "

1
29 tháng 7 2021

Bài 1:

Uses crt;

var i,n,j:integer;

     a,b,c:array[1..100000] of integer;

Begin

clrscr;

readln(n);

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

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

j:=0;

for i:= 1 to n do 

  Begin

  inc(j);

  c[j] := a[i];

  inc(j);

  c[j] := b[i];

  end;

for i:= 1 to j do write(c[i],'  ');

readln;

end. 

29 tháng 7 2021

thank a nha

24 tháng 4 2023

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

i,n:integer;

s:longint;

Begin

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

For i:=1 to n do

Begin

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

s:=s+a[i];

End;

Write('Cac phan tu vua nhap la ');

For i:=1 to n do

Write(a[i]:8);

Writeln;

Write('Tong cua chung la ',s);

Readln

End.

11 tháng 5 2022

mn gips em ạ

 

uses crt;

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

i,n,kt,j:integer;

begin

clrscr;

readln(n);

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

for i:=1 to n do 

  if a[i]>1 then 

begin

kt:=0;

for j:=2 to trunc(sqrt(a[i])) do 

  if a[i] mod j=0 then kt:=1;

if kt=0 then write(a[i]:4);

end;

readln;

end.

SWAP XBạn được cho hai dãy số nguyên dương aa và bb gồm nn phần tử mỗi mảng. Bạn được phép thực hiện thao tác này nhiều lần:Chọn 1 số nguyên ii bất kỳ (1≤i≤n) và tráo đổi 2 phần tử a[i] và b[i].Yêu cầu: Tìm giá trị nhỏ nhất có thể của max(a1,a2,...,an)⋅max(b1,b2,...,bn)sau khi bạn thực hiện thao tác trên 1 hoặc nhiều lần.Dữ liệu:Dòng đầu ghi t thể hiện số testcase, t≤100.t block tiếp theo, mỗi block có...
Đọc tiếp

SWAP X
Bạn được cho hai dãy số nguyên dương aa và bb gồm nn phần tử mỗi mảng. Bạn được phép thực hiện thao tác này nhiều lần:

Chọn 1 số nguyên ii bất kỳ (1≤i≤n) và tráo đổi 2 phần tử a[i] và b[i].

Yêu cầu: Tìm giá trị nhỏ nhất có thể của max(a1,a2,...,an)⋅max(b1,b2,...,bn)sau khi bạn thực hiện thao tác trên 1 hoặc nhiều lần.

Dữ liệu:

Dòng đầu ghi t thể hiện số testcase, t≤100.

t block tiếp theo, mỗi block có dạng:

Dòng đầu ghi số nguyên dương n (n≤104).

Dòng thứ hai ghi nn số nguyên dương a1,a2,...,an (ai≤106)

Dòng thứ ba ghi nn số nguyên dương b1,b2,...,bn(bi≤106).

Kết quả:
Ứng với mỗi testcase, in ra kết quả cần tìm.
input
3
6
1 2 6 5 1 2
3 4 3 2 2 5
3
3 3 3
3 3 3
2
1 2
2 1
output
18
9
2

1
13 tháng 2 2022

Ý tưởng: Tìm số lớn nhất trong hai dãy đã cho. Không mất tính tổng quát, giả sử số lớn nhất của 2 dãy nằm trong dãy a, ta xét các số trong dãy b, tại vị trí i:  nếu a[i] < b[i] thì hoán vị a[i] và b[i]. Sau đó tìm số lớn nhất trong dãy b rồi nhân với số lớn nhất của hai dãy sẽ ra được kết quả. 

#include <iostream>

using namespace std;

#define maxN 105

 

int main() {

int a[maxN], b[maxN];

int t;

cin >> t;

while (t--)

{

int n;

cin >> n;

int maxA = 0, maxB = 0;

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

{

cin >> a[i]; maxA = max(a[i], maxA);

}

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

{

cin >> b[i]; maxB = max(b[i], maxB);

}

if (maxA < maxB) 

swap(a, b);

int maxV = max(maxA, maxB);

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

if (b[i] > a[i]) 

swap(b[i], a[i]);

maxB = 0;

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

maxB = max(b[i], maxB);

cout << maxB * maxV << endl;

}

return 0;

}

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n;

int main()

{

cin>>n;

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

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

cout<<a[i]<<" ";

cout<<endl;

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

if (a[i]%2==0) cout<<a[i]<<" ";

return 0;

}