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.

GIUP MINH VS NHA MK DANG CAN GAPBờm và Cuội chơi trò chơi đoán số như sau:  Bờm chọn lấy hai số nguyên dương 𝑋, 𝑌 (𝑋 > 𝑌) rồi thông báo cho Cuội biết một dãy số thỏa mãn: trong dãy có một phần tử bằng tổng 𝑋 + 𝑌, một phần tử khác bằng hiệu 𝑋 − 𝑌  Nhiệm vụ của Cuội là đoán hai số 𝑋, 𝑌. Trò chơi khá khó nhưng sau nhiều lần chơi, Cuội biết được Bờm rất thích...
Đọc tiếp

GIUP MINH VS NHA MK DANG CAN GAP

Bờm và Cuội chơi trò chơi đoán số như sau:  Bờm chọn lấy hai số nguyên dương 𝑋, 𝑌 (𝑋 > 𝑌) rồi thông báo cho Cuội biết một dãy số thỏa mãn: trong dãy có một phần tử bằng tổng 𝑋 + 𝑌, một phần tử khác bằng hiệu 𝑋 − 𝑌  Nhiệm vụ của Cuội là đoán hai số 𝑋, 𝑌. Trò chơi khá khó nhưng sau nhiều lần chơi, Cuội biết được Bờm rất thích chọn cặp số giá trị lớn. Vì vậy, để tính toán dễ hơn, trong mỗi ván chơi Cuội sẽ cho bạn biết dãy số Bờm đưa ra và nhờ bạn xác định tích 𝑃 = 𝑋 × 𝑌 lớn nhất có thể phù hợp với dãy đó (nghĩa là tồn tại cặp số (𝑋, 𝑌) sao cho tích của chúng bằng 𝑃 mà tổng và hiệu của chúng đều xuất hiện trong dãy Bờm đưa ra). Dữ liệu  Dòng 1: số nguyên 𝑁 (2 ≤ 𝑁 ≤ 50) là số phần tử của dãy Bờm đưa ra  Dòng 2: 𝑁 số nguyên dương đôi một phân biệt là các phần tử dãy Bờm đưa ra, các số đều trong phạm vi 1 … 100. Kết quả  Dòng 1: số nguyên là tích lớn nhất tính được. Số này chắc chắn tồn tại vì Bờm không bao giờ chơi gian dối. Ví dụ BDOANSO.INP BDOANSO.OUT 3 1 4 5 6Bờm và Cuội chơi trò chơi đoán số như sau:  Bờm chọn lấy hai số nguyên dương 𝑋, 𝑌 (𝑋 > 𝑌) rồi thông báo cho Cuội biết một dãy số thỏa mãn: trong dãy có một phần tử bằng tổng 𝑋 + 𝑌, một phần tử khác bằng hiệu 𝑋 − 𝑌  Nhiệm vụ của Cuội là đoán hai số 𝑋, 𝑌. Trò chơi khá khó nhưng sau nhiều lần chơi, Cuội biết được Bờm rất thích chọn cặp số giá trị lớn. Vì vậy, để tính toán dễ hơn, trong mỗi ván chơi Cuội sẽ cho bạn biết dãy số Bờm đưa ra và nhờ bạn xác định tích 𝑃 = 𝑋 × 𝑌 lớn nhất có thể phù hợp với dãy đó (nghĩa là tồn tại cặp số (𝑋, 𝑌) sao cho tích của chúng bằng 𝑃 mà tổng và hiệu của chúng đều xuất hiện trong dãy Bờm đưa ra). Dữ liệu  Dòng 1: số nguyên 𝑁 (2 ≤ 𝑁 ≤ 50) là số phần tử của dãy Bờm đưa ra  Dòng 2: 𝑁 số nguyên dương đôi một phân biệt là các phần tử dãy Bờm đưa ra, các số đều trong phạm vi 1 … 100. Kết quả  Dòng 1: số nguyên là tích lớn nhất tính được. Số này chắc chắn tồn tại vì Bờm không bao giờ chơi gian dối. Ví dụ BDOANSO.INP 3 1 4 5 BDOANSO.OUT  6

0
13 tháng 6 2021

Đề thi tin học trẻ BT phải ko b?

Mà bài này giải sao nhỉ?

Muốn xem code để tham khảo quá!!!

30 tháng 7 2021

sắp xếp lại các phần tử theo chiều tăng dần rồi đặt kết quả muốn tìm = 1, so sánh nó với từng phần tử trong mảng, nếu bé hơn thì dừng chương trình và đó là kết quả, nếu không thỉ cộng kết quả cho phần tử đang được so sánh.

code :

program giai;uses crt;var n,m,i,c,t : integer;A : array[1..100] of integer;beginclrscr;write('so phan tu cua day so :');readln(m);for i:=1 to m do    begin         readln(A[i]);    end;for i:= 1 to m do    for n:=i+1 to m do        if A[i] > A[n] then        begin        c:= A[i];        A[i] := A[n];        A[n] := c;        end;t:= 1;for i:=1 to m-1 do    if t < A[i]    then    break    else t:= t+ A[i];writeln(t);readln;end. 
10 tháng 5 2023

Câu 1:

var i,n:integer;

s:longint;

begin

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

for i:=1 to n do

s:=s+2*i+1;

write('tong la: ',s);

readln

end.

10 tháng 5 2023

Câu 2

Bài 5:

Var b:array:[1..1000] of integer;

i,n,max:integer;

Begin

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

For i:=1 to n do

Begin

Write('Nhap so thu ',i,' = ');readln(b[i]);

End;

Write('Cac phan tu am la: ');

For i:=1 to n dko

if b[i]<0 then write(b[i]:8);

writeln;

max:=b[1];

For i:=2 to n do

If b[i] > max then max:=b[i];

write('So lon nhat la ',max);

Readln

End.

uses crt;

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

i,n,t,ln,nn:integer;

begin

clrscr;

readln(n);

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

t:=0;

for i:=1 to n do

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

ln:=a[1];

nn:=a[1];

for i:=1 to n do 

begin

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

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

end;

writeln(t);

writeln(ln);

writeln(nn);

readln;

end.

28 tháng 5 2022

cảm ơn bác nhiều nhe

 

23 tháng 8 2023

#include <iostream>
#include <algorithm>
using namespace std;
int main()
{
    int n,k;
    cin >> n >> k;
    int a[n];
    for (int i=0;i<n;i++)
        cin >> a[i];
    sort(a,a+n);
    cout << a[k-1];
    return 0;
}

uses crt;

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

i,n,t:integer;

s:real;

begin

clrscr;

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

for i:=1 to n do 

begin

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

end;

s:=1;

for i:=1 to n do 

  s:=s*a[i];

writeln('Tich la: ',s:0:0);

t:=0;

for i:=1 to n do 

  t:=t+a[i];

writeln('Trung binh la: ',t/n:4:2);

readln;

end.