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.

26 tháng 12 2019

Chọn A.

Dãy số liệu thứ 2 có 2 số liệu khác với dãy số liệu 1 là số đứng ở vị trí đầu tiên và số đứng ở vị trí cuối cùng. Tuy nhiên tổng của số đứng đầu tiên + số đứng ở vị trí cuối cùng không thay đổi. Do đó; số trung bình không thay đổi.

Bài 1 (8 điểm): TÍNH TỔNGCho dãy số a1, a2,..., aN và một số S. Hãy tính tổng các phần tử trong dãy mà chia hết cho SDữ liệu: Vào từ tệp văn bản BAI1.INP:Dòng 1 : Hai số nguyên dương N và S (N ⩽ 105, S ⩽ 109)Dòng 2 : N số nguyên dương a1, a2,..., aN  (ai ⩽ 109)Kết quả: Ghi ra tệp văn bản BAI1.OUT kết quả tìm được.Ví dụ:BAI1.INPBAI1.OUT5 22 4 6 8 10 30 Bài 2 (6 điểm): HIỆU LỚN NHẤT     Cho 2 dãy số a1, a2,..., aN và b1,...
Đọc tiếp

Bài 1 (8 điểm): TÍNH TỔNG

Cho dãy số a1, a2,..., aN và một số S. Hãy tính tổng các phần tử trong dãy mà chia hết cho S

Dữ liệu: Vào từ tệp văn bản BAI1.INP:

Dòng 1 : Hai số nguyên dương N và S (N ⩽ 105, S ⩽ 109)

Dòng 2 : N số nguyên dương a1, a2,..., aN  (ai ⩽ 109)

Kết quả: Ghi ra tệp văn bản BAI1.OUT kết quả tìm được.

Ví dụ:

BAI1.INP

BAI1.OUT

5 2

2 4 6 8 10 

30

 

Bài 2 (6 điểm): HIỆU LỚN NHẤT

     Cho 2 dãy số a1, a2,..., aN và b1, b2,..., bN , hãy tìm cặp số (x, y) sao cho x thuộc dãy a, y thuộc dãy b và chênh lệch giữa x và y là lớn nhất

Dữ liệu: Nhập vào từ tệp BAI2.INP gồm:

Dòng 1 : Số nguyên dương N ( N ⩽ 1000) 

N dòng tiếp theo, mỗi dòng chứa 2 số nguyên ai và bi (ai, bi ⩽ 109)

Kết quả: Ghi ra tệp BAI2.OUT một số nguyên là chênh lệch lớn nhất của hai số (x, y) tìm được.

Ví dụ:

BAI2.INP

BAI2.OUT

4

1 5

2 6

3 7

4 8

7

Bài 3 (4 điểm): GIÁ TRỊ CẶP SỐ

Ta định nghĩa giá trị cặp số nguyên dương (a, b) là số lượng ước số chung của a và b.  Cho trước cặp số (a, b), hãy tính giá trị của cặp số này

Dữ liệu: Nhập vào từ tệp BAI3.INP gồm hai số nguyên dương a, b (a, b ⩽ 1012)

Kết quả: Ghi ra tệp BAI3.OUT một số nguyên là kết quả tìm được.

 

Ví dụ:

BAI3.INP

BAI3.OUT

4 5

1

Ràng buộc:

Có 50% số test tương ứng với 50% số điểm có A, B  ⩽ 100000

50% số test tương ứng với 50% số điểm còn lại không có ràng buộc gì thêm.



 

Bài 4 (2 điểm): ĐỐI XỨNG LẺ

    Xâu đối xứng là xâu đọc từ trái sang phải cũng như đọc từ phải sang trái (Ví dụ “abba” là xâu đối xứng còn “abab” thì không). Ta định nghĩa xâu đối xứng lẻ là xâu đối xứng có độ dài lẻ. 

Cho trước một xâu S có độ dài n và vị trí p, yêu cầu tìm độ dài xâu đối xứng lẻ dài nhất là xâu con của S và chứa vị trí p

Dữ liệu: Nhập vào từ tệp văn bản BAI4.INP:

· Dòng đầu chứa 2 số nguyên dương n, p (1 ⩽ p ⩽ n ⩽ 20000)

· Dòng thứ hai chứa xâu S độ dài n gồm các chữ cái tiếng Anh in thường 

Kết quả: Ghi ra tệp văn bản BAI4.OUT độ dài xâu đối xứng lẻ dài nhất chứa vị trí p

Ví dụ: 

BAI4.INP

BAI4.OUT

7 7

abbbcce

1

Ràng buộc:

50% số test tương ứng với 50% số điểm có n ⩽ 1000

50%  số điểm còn lại không có ràng buộc gì thêm

------ HẾT ------

 
0
15 tháng 12 2022

#include <bits/stdc++.h>

using namespace std;

int n,s,i,t;

int main()

{

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

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

cin>>n>>s;

t=0;

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

{

int x;

cin>>x;

if (x%s==0) t+=x;

}

cout<<t;

}

#include <bits/stdc++.h>

using namespace std;

long long a[1000],n,i;

int main()

{

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

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

cin>>n;

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

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

if (a[i]>0) cout<<a[i]<<" ";

return 0;

}

#include <bits/stdc++.h>

using namespace std;

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

int main()

{

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

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

cin>>n;

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

t=0;

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

cout<<fixed<<setprecision(1)<<(t*1.0)/(n*1.0);

return 0;

}

uses crt;

const fi='dulieu.inp';

var f1:text;

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

n,i,t1,t2:integer;

begin

clrscr;

assign(f1,fi); reset(f1);

readln(f1,n);

for i:=1 to n do 

  read(f1,a[i]);

t1:=0;

t2:=0;

for i:=1 to n do 

 begin

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

if a[i]<0 then t2:=t2+a[i];

end;

writeln('Tong cac so duong la: ',t1);

writeln('Tong cac so am la: ',t2);

close(f1);

readln;

end.

30 tháng 12 2023

def count_pairs_divisible_by_3(arr):
    n = len(arr)
    
    # Đếm số lượng số dư khi chia cho 3
    count_mod = [0, 0, 0]
    for num in arr:
        count_mod[num % 3] += 1

    # Trường hợp 0: Số dư 0 + Số dư 0
    count_pairs = count_mod[0] * (count_mod[0] - 1) // 2

    # Trường hợp 1: Số dư 1 + Số dư 2
    count_pairs += count_mod[1] * count_mod[2]

    # Trường hợp 2: Số dư 1 + Số dư 1 hoặc Số dư 2 + Số dư 2
    count_pairs += count_mod[1] * (count_mod[1] - 1) // 2
    count_pairs += count_mod[2] * (count_mod[2] - 1) // 2

    return count_pairs

# Thử nghiệm
arr = [3, 5, 7, 9, 11, 13, 15]
result = count_pairs_divisible_by_3(arr)
print(f"Số lượng cặp số có tổng chia hết cho 3 là: {result}"

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

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.