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.

15 tháng 4 2021

tự làm đi dễ mà:)))))

 

Dễ thì bạn làm đi

15 tháng 4 2021

program bai2; ddaay:)))))

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

i,j,n,t,s,max1,max2,max3:integer;

begin

        readln(n);

        for i:=1 to n do

                begin

                readln(a[i]);

                end;

        for i:=1 to n do

        for j:=1 to n do

        if a[i]>a[j] then

                begin

                t:=a[i];

                a[i]:=a[j];

                a[j]:=t;

                end;

        begin

        max1:=a[1];

        for i:=1 to n-1 do

        if max1<a[1] then

        max1:=a[1];

        end;

                 begin

                 max2:=a[2];

                 for i:=1 to n-2 do

                 if max2<a[2] then

                 max2:=a[2];

                 end;

          begin

          max3:=a[3];

          for i:=1 to n-3 do

          if max3<a[3] then

          max3:=a[3];

          end;

                s:=abs(max1 * max2 * max3);

                write(s);

end.

15 tháng 4 2021

Đinh Duy Linh Bùi sai rồi nhá bro. Test vậy là sai rồi

6 tháng 7 2021

dễ thì bạn làm đi mà bạn đấy k làm được bạn ấy mới hỏi mà bạn lại bảo tự làm là sao

6 tháng 7 2021

thế mà bảo dễ

8 tháng 7 2025

tự tin thái quá

8 tháng 7 2025
ta có thể sắp xếp dãy số theo thứ tự tăng dần, sau đó xét hai trường hợp:
  1. 1. Tích của ba số lớn nhất: Nếu tất cả các số đều dương hoặc có cả số âm và số dương, ta sẽ chọn ba số lớn nhất trong dãy. Tích của ba số này sẽ là tích lớn nhất.
  2. 2. Tích của ba số lớn nhất (có số âm): Nếu có nhiều số âm, ta cần xem xét tích của ba số âm lớn nhất và tích của hai số âm nhỏ nhất với số dương lớn nhất. So sánh hai kết quả này để tìm ra tích lớn nhất.
Dưới đây là một ví dụ minh họa:
Input: 7
       5 2 10 1 3 2 150
Output: 150
Trong ví dụ này, dãy số là 5 2 10 1 3 2 150. Sau khi sắp xếp, ta có 1 2 2 3 5 10 150. Tích của ba số lớn nhất (10, 5, 150) là 7500.
Input: 4
       3 -3 4 -1
Output: 12
Trong ví dụ này, dãy số là 3 -3 4 -1. Sau khi sắp xếp, ta có -3 -1 3 4. Tích của ba số lớn nhất (4, 3, -1) là -12. Tích của hai số âm nhỏ nhất (-3, -1) với số dương lớn nhất (4) là 12. Vì 12 > -12, nên đáp án là 12. Dựa trên phân tích trên, ta có thể viết một đoạn code để giải quyết bài toán này. Python
def solve():
    n = int(input())
    a = list(map(int, input().split()))
    a.sort()
    
    max_product = float('-inf')
    
    # Case 1: All positive or mixed
    if len(a) >= 3:
        max_product = max(max_product, a[-1] * a[-2] * a[-3])
    
    # Case 2: At least two negative numbers
    if len(a) >= 3:
        max_product = max(max_product, a[0] * a[1] * a[-1])
    
    print(max_product)

solve()

8 tháng 7 2025

ko bt dung ko

26 tháng 7 2023

#include <iostream>

#include <map>

using namespace std;

int main() {

       int n;

       cin >> n;

       map<int, int> count;

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

              int x;

              cin >> x;

              count[x]++;

       }

       int ans = 0;

       for (auto p : count) {

              int x = p.second;

              ans += (x * (x - 1)) / 2;

       }

       cout << ans;

       return 0;

}

26 tháng 7 2023

dùng mảng đc ko b?

 

8 tháng 10 2019

program hoidaptinhoc;
uses crt;
var K,N,X,Y,M,i : longint;
z : string;
BEGIN
clrscr;
writeln('Nhap so dong trong moi trang cua quyen sach: '); readln(K);
writeln('Nhap so thu tu cua dong: '); readln(N);
if (N mod K) = 0 then begin X:=N div K; Y:=K end;
if (N mod K) <> 0 then begin X:= (N div K) + 1; Y:=N mod K end;
M:=0;
for i:=1 to X do
begin
str(i,z);
M:=M+length(z);
end;
writeln('X= ',X,' Y= ',Y);
writeln('M= ',M);
readln;
END.

27 tháng 3 2022

Lưu ý :Dùng C++

2 tháng 10 2021

#include <bits/stdc++.h>

using namespace std;

int main()

{

long a[105], i,n,max,vt;

cout<<"n="; cin>>n;

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

{

cout<<"A["<<i<<"]="; cin>>a[i];

}

max=a[1];

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

if (max<a[i]) max=a[i];

vt=1;

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

if (max==a[i]) vt=i;

cout<<max<<endl;

cout<<vt;

return 0;

}

 

10 tháng 10 2022

bài này sai r bạn ơi

 

8 tháng 10 2020

Program HOC24;

const fi='Cau1.INP';

fo='Cau2.OUT';

var i,a,b,c,t,d: integer;

f: text;

function ucln(x,y: integer): integer;

var t: integer;

begin

while y<>0 do

begin

t:= x mod y;

x:=y;

y:=t;

end;

ucln:=x;

end;

procedure ip;

begin

assign(f,fi);

reset(f);

read(f,a,b,c);

close(f);

end;

procedure out;

begin

assign(f,fo);

rewrite(f);

for i:=b to c do

begin

if i mod a=0 then write(f,i,' ');

t:=t+i;

end;

writeln(f);

while t<>0 do

begin

t:=t div 10;

inc(d);

end;

writeln(f,d);

if ucln(a,b,c)=1 then write(f,1) else write(f,0);

close(f);

end;

begin

ip;

out;

end.

4 tháng 4 2022

#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;

}

23 tháng 3 2021

const fi='divk.inp';

fo='divk.out';

var f1,f2:text;

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

i,n,k,dem,j,x,t:integer;

begin

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

assign(f2,fo); rewrite(f2);

readln(f1,n,k);

for i:=1 to n do 

  read(f1,a[i]);

dem:=0;

for i:=1 to n do 

  for j:=1 to n do 

begin

if i<j then 

begin

t:=0;

for x:=i to j do 

  t:=t+a[x];

if t=k then inc(dem);

end;

for i:=1 to n do 

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

writeln(f2,dem);

close(f1);

close(f2);

end.

15 tháng 10 2022

#include <bits/stdc++.h>
using namespace std;
#define nhungcute ios_base::sync_with_stdio; cin.tie(0); cout.tie(0);
const int N=1500;
long long n,k,a[N],i,j,c[N][101];
int main(){
nhungcute
    cin>>n>>k;
    for(i=1;i<=n;i++)
        cin>>a[i];
    for(i=1;i<=n;i++){
        a[i]=a[i]%k;
    }
    for(i=1;i<k;i++)
    c[1][i] =-1e9;
    c[1][a[0]]=0;
    c[1][a[1]]=1;
    for(i=2;i<=n;i++){
        for(j=0;j<k;j++){
        c[i][j]=max(c[i-1][j],c[i-1][(j-a[i]+k)%k]+1);
        }
    }
    cout<<c[n][0];
    return 0;
}