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.

#include <bits/stdc++.h>

using namespace std;

long long a[1000],n,i,c[1000],k;

int main()

{

cin>>n;

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

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

c[a[i]]+=1;

k=0;

for (i=1; i<=n; i++) k=max(k,c[i]);

for (i=1; i<=n; i++) if (k==c[i]) cout<<i<<" "';

return 0;

}

17 tháng 3 2022

pascal đi bạn

 

6 tháng 3 2023

Program HOC24;

var i,n,d: integer;

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

begin

write('Nhap N: '); readln(n);

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

d:=0;

for i:=1 to n do if a[i] mod 2=0 then d:=d+1;

write('Co ',d,' so chan' );

readln

end.

3:

#include <bits/stdc++.h>

using namespace std;

int A[100],i,n,x,kt;

int main()

{

cin>>n;

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

cin>>x;

kt=0;

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

if (A[i]==x) then kt=1;

if (kt==0) cout<<"NO";

else 

{

for (int i=n; i>=1; i--)

if (A[i]==x) 

{

cout<<A[i];

return 0;

}

}

return 0;

}

4:

#include <bits/stdc++.h>

using namespace std;

int A[100],i,n;

int main()

{

cin>>n;

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

cin>>A[i];

sort(A+1,A+n+1);

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

cout<<A[i]<<" ";

return 0;

}

11 tháng 3 2021

Thuật toán: Với mỗi giá trị i, tính tổng S = 1 + 2 + 3 + ... + i. Sau đó lấy tổng tìm được chia cho số số hạng (tức bằng (i - 1) + 1 = i). Nếu kết quả bằng n thì in ra kết quả, ngược lại tiếp tục tăng i. 
* Lưu ý: Dữ liệu đề bài đảm bảo chắc chắn sẽ tìm được kết quả là số nguyên. Nếu không sẽ bị lặp vô hạn lần.
Code tham khảo (C++):

20 tháng 4 2023

program DemSoChan;

var

     A: array of Integer;

     n, i: Integer; 

begin

     Write('Nhap so phan tu cua day A: ');

     Readln(n); 

     SetLength(A, n);

     for i:= 0 to n-1 do

     begin

          Write('A[', i, ']= ');

          Readln(A[i]);

     end;

     Writeln('Cac so chan trong day A la:');

     for i:= 0 to n-1 do

     begin

          if A[i] mod 2 = 0 then

               Write(A[i], ' ');

     end;

end.

2 tháng 4 2017

có j ko hiểu, hỏi nhé.

Bài 9. Làm việc với dãy số

2 tháng 4 2017

chương trình có chút nhược điểm, bye - bận ^^!

19 tháng 3 2017

Program ct; USES CRT; Var n,i: Integer; A:array[1..10] of integer; Begin Clrscr; Write(' nhap n:'); Readln(n); For i:=1 to n do begin Write('A[',i,']='); Readln(A[i]); end; For i:=1 to n do Write(A[i]); Readln; End.

( Nếu đề chỉ yêu cầu là nhập 10 phần tử thì không cần khai báo n và thay n -> 10 trong câu lệnh for...do. Còn đề yêu cầu in n phần tử thì làm như trên).

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

}