Truy vấn 3 Tên file chương trình truyvan3.* Cho một dãy A gồm n số tự nhiên a1, a2, …, an có giá trị từ 1 đến n, dãy B gồm n số tự nhiên b1, b2, …, bn có giá trị từ n 1 đến 2n. Dãy C gồm nn số được...

#Tin học lớp 12

1

TM

Trần Minh Hoàng

7 tháng 8 2020

Làm tạm :v

var n,k,i,j,dem:integer;
q,k2:Array[1..104] of integer;
C:Array[1..109] of integer;

begin
assign(input,'truyvan3.inp');
reset(input);
readln(n,k);
for i:=1 to k do read(q[i]);
close(input);

assign(output,'truyvan3.out');
rewrite(output);
for i:=1 to n do C[i]:=2*i+n;
for j:=1 to k do
begin
dem:=0;
for i:=1 to n do if C[i]=q[j] then dem:=dem+1;
k2[j]:=dem;
end;
for j:=1 to k do writeln(k2[j]);
close(output)
end.

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...

VT

Võ Thái An Bình

28 tháng 7 2021

1

NH

Nguyên Hưng Trần

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.

VT

Võ Thái An Bình

29 tháng 7 2021

thank a nha

Bài 7. Truy vấn tổng Tên file: QSUM.CPPCho một dãy số nguyên gồm N phần tử nguyên A1, A2, …, AN.Yêu cầu: Hãy trả lời Q truy vấn có dạng:- i j: tính tổng các phần tử liên tiếp thuộc đoạn từ i đến j.INPUT: QSUM.INPØ Dòng đầu tiên chứa 2 số nguyên dương N và Q (1 ≤ N, Q ≤ 105)Ø Dòng thứ 2 chứa N số nguyên A1, A2, …, AN (|Ai| ≤ 103)Ø Q dòng tiếp theo mỗi dòng chứa hai số nguyên i, j (1 ≤...

DT

Dang Tri Duc

2 tháng 1

2

D

datcoder

CTVVIP

3 tháng 1

Program HOC24;

var i,n,q,j,k,l: integer;

t: longint;

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

f1,f2: text;

const fi='QSUM.INP' ;

fo='QSUM.OUT' ;

begin

assign(f1,fi);

assign(f2,fo);

reset(f1);

rewrite(f2);

readln(f1,n,q);

for i:=1 to n do read(f1,a[i]);

readln(f1);

for k:=1 to q do

begin

readln(f1,i,j);

t:=0;

for l:=i to j do t:=t+a[l];

writeln(f2,t);

end;

close(f1);

close(f2);

end.

Đúng(2)

DT

Dang Tri Duc

2 tháng 1

giúp mình với mmik cần gấp

Sắp xếp dãy số Tên chương trình: sorting.pasCho dãy N số nguyên a1, a2,..., an. Hãy sắp dãy số đã cho theo thứ tự tăng dần các số lẻvà giảm dần các số chẵn?Dữ liệu vào: File sorting.inp gồm hai dòng+ Dòng 1: ghi số nguyên N (0< N<1000)+ Dòng 2: ghi N số a1, a2,...< aN (với ai <=109)Dữ liệu ra: File sorting.out gồm hai dòng+ Dòng 1: Ghi các số lẻ tăng dần+ Dòng 2: ghi các số chẵn giảm dầnVí dụ:Sorting.inp Sorting.out62 3 5 1 4...

A

Asuna

11 tháng 8 2023

2

UT

✎﹏ɗʊɣ‿✶2ƙ11❖( TΣΔM...??? ) + Phó.....

11 tháng 8 2023

Dưới đây là mã chương trình Pascal để sắp xếp dãy số theo yêu cầu đã cho:

```pascal
program sorting;

const
MAX_N = 1000;

var
N, i, j, temp: integer;
arr: array[1…MAX_N] of integer;
oddArr, evenArr: array[1…MAX_N] of integer;
oddCount, evenCount: integer;
inputFile, outputFile: text;

begin
// Mở file input và đọc dữ liệu
assign(inputFile, 'sorting.inp');
reset(inputFile);
readln(inputFile, N);
for i := 1 to N do
read(inputFile, arr[i]);
close(inputFile);

// Sắp xếp mảng theo yêu cầu
oddCount := 0;
evenCount := 0;
for i := 1 to N do
begin
if arr[i] mod 2 = 1 then
begin
oddCount := oddCount + 1;
oddArr[oddCount] := arr[i];
end
else
begin
evenCount := evenCount + 1;
evenArr[evenCount] := arr[i];
end;
end;

// Sắp xếp mảng số lẻ tăng dần
for i := 1 to oddCount - 1 do
for j := i + 1 to oddCount do
if oddArr[i] > oddArr[j] then
begin
temp := oddArr[i];
oddArr[i] := oddArr[j];
oddArr[j] := temp;
end;

// Sắp xếp mảng số chẵn giảm dần
for i := 1 to evenCount - 1 do
for j := i + 1 to evenCount do
if evenArr[i] < evenArr[j] then
begin
temp := evenArr[i];
evenArr[i] := evenArr[j];
evenArr[j] := temp;
end;

// Mở file output và ghi kết quả
assign(outputFile, 'sorting.out');
rewrite(outputFile);
for i := 1 to oddCount do
write(outputFile, oddArr[i], ' ');
writeln(outputFile);
for i := 1 to evenCount do
write(outputFile, evenArr[i], ' ');
close(outputFile);
end.
```

Bạn có thể sao chép mã chương trình trên vào một tệp tin có tên `sorting.pas`, sau đó tạo một tệp tin `sorting.inp` và nhập dữ liệu theo định dạng đã cho. Chạy chương trình và kết quả sẽ được ghi vào tệp tin `sorting.out`.

PD

Phạm Dương Phúc Khang

21 tháng 1

var i,n:longint; a:array[1..1000] of longint;

begin

readln(n);

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

for i:=1 to n do

if a[i] mod 2=0 then

begin

inc(k);

b[k]:=a[i];

end

else

begin

inc(t);

c[t]:=a[i];

end;

for i:=1 to k-1 do

for j:=i+1 to k do

if b[i]<b[j] then

begin

d:=b[i];

b[i]:=b[j];

b[j]:=d;

end;

for i:=1 to t-1 do

for j:=i+1 to t do

if c[i]>c[j] then

begin

d:=c[i];

c[i]:=c[j];

c[j]:=d;

end;

for i:=1 to k do write(b[i],' ');

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

end.

KT

Kim Thoa Le Thi

23 tháng 3 2023

Viết chương trình Pascal tìm giá trị nhỏ nhất của một dãy số gồm `n` phần tử. Với `n` là một số tự nhiên được nhập từ bàn phím

0

F

fyujg

2 tháng 2 2021

Viết chương trình nhập vào số nguyên dương N và dãy gồm N số nguyên A1,A2,...,AN và số nguyên k.Đếm xem trong dãy có bao nhiêu phần tử có giá trị bằng k

#Tin học lớp 11

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,k: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;

for i:=1 to n do

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

writeln('Trong day co ',dem,' phan tu co gia tri bang ',k);

readln;

end.

Z

zyyy

2 tháng 2 2021

vậy???

NT

Nguyễn Thái Phương Thảo

22 tháng 4 2023

Viết thuật toán và chương trình nhập từ bàn phím dãy A gồm n phần tử a1, a2, a3,..an có kiểu số nguyên. Tìm và in ra màn hình các phần tử có giá trị lẻ, các phần tử có giá trị chẵn trong dãy A

Giúp em vsBài 1:Viết chương trình nhập vào một dãy số thực gồm N số (N được nhập từ bàn phím và N <=100). Tính tổng tất cả các phần tử và tính giá trị trung bình của các phần tử đó.Bài 2:Tìm phần tử nhỏ nhất của một dãy số nguyên dương A1, A2,...,AN với N được nhập từ bàn phím và...

0

L

Leoumax

22 tháng 2 2023

#Tin học lớp 11

1

NL

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

23 tháng 2 2023

Bai 2:

uses crt;

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

i,n,t,nn:integer;

begin

clrscr;

readln(n);

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

nn:=a[1];

for i:=1 to n do

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

write(nn);

readln;

end.

Viết chương trình nhập vào dãy số gồm có N phần tử a1, a2, a3,…,an (N<=100). Các phần tử của dãy số là các số nguyên (với n là số nguyên dương được nhập vào từ bàn phím). Thực hiện các yêu cầu sau:.a. In ra màn hình giá trị của các phần tử vừa nhập Tính tổng các số vừa nhập và in kết quả ra màn...

NT

Ngọc Ty

24 tháng 4 2023

1

KV

Kiều Vũ Linh

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.

NT

NGUYỄN THỊ MỸ LINH

11 tháng 1 2022

viết chương trình đọc dữ liệu từ file văn bản so.inp gồm 2 dòng. dòng 1 ghi số nguyên dương N (N<= 100).dòng 2 dãy A gồm n số nguyên dương: a1,a2,...,an.ghi ra file so.out các số chẵn trong dãy A

#Tin học lớp 11

1

NL

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

11 tháng 1 2022

#include <bits/stdc++.h>

using namespace std;

long long a[1000],n,i;

int main()

{

freopen("so.inp","r",stdin);

freopen("so.out","w",stdout);

cin>>n;

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

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

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

return 0;

}