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],i,n,ln,dem;

int main()

{

cin>>n;

ln=LLONG_MIN;

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

{

cin>>a[i];

ln=max(ln,a[i]);

}

dem=0;

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

if (a[i]==max) dem++;

cout<<dem;

return 0;

}

4 tháng 7 2017

chỉ ctv hoặc giáo viên mới lm đc thôi! còn chọn đúng thì nhấn đúng là ok bn!

a: uses crt;

var s,i:integer;

begin

clrscr;

s:=0;

for i:=1 to 70 do s:=s+i;

write(s);

readln;

end.

b: 

uses crt;

var s,i:integer;

begin

clrscr;

s:=1;

for i:=1 to 80 do

if i mod 2=0 then s:=s+i;

write(s);

readln;

end.

18 tháng 3 2023

là sao ạ, mk giải hộ bt cho ngta:))

27 tháng 10 2017

bài 4:

input: số nguyên dương N và dãy N số nguyên từ A1->AN.

Output: Min của dãy đó.

Thuật toán:

B1: Nhập N và dãy A1->AN;

B2:min<- A1, i<- 2;

B3: nếu i>N thì đưa giá trị Min rồi kết thúc;

B4:

4,1: nếu A1 < Min thì Min <- A1;

4,2: i <- i+1 rồi quay lại bước 3;

17 tháng 11 2017

Program bai1;

uses crt;

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

n,i: integer;

begin

clrscr;

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

for i:= 1 to n do

begin

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

end;

writeln('cac so chan la :');

for i:= 1 to n do

if a[i] mod 2 = 0 then write(a[i] :4);

writeln;

writeln('cac so le la :');

for i:= 1 to n do

if a[i] mod 2 <> 0 then write(a[i] :4);

writeln;

writeln('cac so chia het cho 3 la :');

for i:= 1 to n do

if a[i] mod 3 = 0 then write(a[i] :4 );

readln;

end.

QT
Quoc Tran Anh Le
Giáo viên
2 tháng 9 2023
BướcThao tácKết quả
1Chuyển số 4 sang dạng nhị phân100
2Chuyển số 8 sang dạng nhị phân1000
3Chuyển số 32 sang dạng nhị phân100000
4Cộng ba số cùng cột ở trên trong hệ nhị phân101100