Những câu hỏi liên quan
ngỷyvjhy
Xem chi tiết
Nguyễn Lê Phước Thịnh
3 tháng 12 2021 lúc 21:56

b: #include <bits/stdc++.h>

using namespace std;

long long b[1000],i,n;

int main()

{

cin>>n;

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

cin>>b[i];

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

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

cout<<b[i]<<" ";

return 0;

}

anhle
Xem chi tiết
Joc Bok
Xem chi tiết
Minh Lệ
5 tháng 8 2021 lúc 17:21

Program HOC24;

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

i,n: integer;

begin

write('Nhap so phan tu cua mang: '); readln(n);

for i:=1 to n do

begin

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

end;

write('Mang vua nhap: '); 

for i:=1 to n do write(a[i],' ');

writeln;

write('Cac so chan trong mang la: ');

for i:=1 to n do if a[i] mod 2=0 then write(a[i],' ');

writeln;

write('Cac so chinh phuong trong mang la: ');

for i:=1 to n do if if sqr(trunc(sqrt(a[i])))=a[i] then write(a[i],' ');

readln

end.

Pham Uyen
Xem chi tiết
Nguyễn Lê Phước Thịnh
25 tháng 12 2020 lúc 13:09

uses crt;

var i,n,dem:integer;

begin

clrscr;

repeat

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

until n>0;

writeln('Cac so chan va chia het cho 4 trong khoang tu 5 toi ',n,' la: ');

for i:=5 to n do 

  if (i mod 2=0) and (i mod 7=0) then write(i:4);

writeln;

writeln('Cac so chia het cho 7 trong khoang tu 5 toi ',n,' la: ');

dem:=0;

for i:=5 to n do 

  if i mod 7=0 then 

   begin

write(i:4);

inc(dem);

end;

writeln;

writeln('Co ',dem,' so chia het cho 7 trong khoang tu 5 toi ',n);

readln;

end.

Tú Uyên
Xem chi tiết
Nguyễn Lê Phước Thịnh
24 tháng 2 2022 lúc 23:33

#include <bits/stdc++.h>

using namespace std;

long long a[15],i,n=15,s,t;

int main()

{

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

s=1;

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

if (a[i]%2==0)

{

cout<<a[i]<<" ";

s*=a[i];

}

cout<<endl;

cout<<"Tich cac so chan la: "<<s<<endl;

t=0;

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

if (a[i]<0) t=t+a[i]*a[i];

cout<<t;

return 0;

}

Lê Thị Bảo Trâm
Xem chi tiết
Trần Đức Huy
6 tháng 2 2022 lúc 11:49

Chương trình nhập n và mảng hay nhập mảng chưa biết số hạng tử v

Nguyễn Lê Phước Thịnh
6 tháng 2 2022 lúc 12:43

#include <bits/stdc++.h>

using namespace std;

long long a[1000],n,i,ln,t1,dem,s;

int main()

{

cin>>n;

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

ln=a[1];

for (i=1; i<=n; i++) ln=max(ln,a[i]);

cout<<ln<<endl;

t=0;

for (i=1; i<=n; i++) if (a[i]%2==0) t=t+a[i];

cout<<t<<endl;

dem=0;

for (i=1; i<=n; i++) if (a[i]<0) dem++;

cout<<dem<<" ";

s=1;

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

if ((a[i]%3==0) and (a[i]>0)) s=s*a[i];

cout<<s;

return 0;

}

Kiều Vũ Linh
7 tháng 2 2022 lúc 8:37

Var a:array[1..200] of integer;

i,n,max,s1,dem,s2:integer;

begin

write('Nhap so luong phan tu cua mang n = ');readln(n);

for i:=1 to n do

begin

write('Nhap phan tu thu ',i,' = ');readln(a[i]);

end;

max:=a[1];

for i:=2 to n do

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

for i:=1 to n do

begin

if a[i] mod 2 = 0 then s1:=s1+a[i];

end;

for i:=1 to n do

begin

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

end;

s2:=1;

for i:=1 to n do

begin

if (a[i] > 0) and (a[i] mod 3 = 0) then s2:=s2*a[i];

end;

writeln('gia tri lon nhat trong mang la ',max);

writeln('tong cac so chan la ',s1);

writeln('Co ',dem,' so am');

write('tich cac so duong va chia het cho 3 la ',s2);

end;

readln;

end.

Khánh Linh
Xem chi tiết
Nguyễn Lê Phước Thịnh
4 tháng 3 2022 lúc 22:44

#include <bits/stdc++.h>

using namespace std;

long long a[1000],n,i;

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 && a[i]<0) cout<<a[i]<<" ";

cout<<endl;

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

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

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

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

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

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

return 0;

}

Benny
Xem chi tiết
Nguyễn Lê Phước Thịnh
9 tháng 3 2023 lúc 14:55

6:

#include <bits/stdc++.h>

using namespace std;

int main()

{

int n,A[100],i,dem=0;

cin>>n;

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

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

if (A[i]%2!=0) dem++;

cout<<dem;

return 0;

}

5:

#include <bits/stdc++.h>

using namespace std;

int main()

{

long long n,nn=1e6,A[1000];

cin>>n;

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

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

nn=min(nn,A[i]);

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

if (nn==A[i]) cout<<i<<" ";

return 0;

}

Lê Thùy Ánh
Xem chi tiết
KhảTâm
14 tháng 5 2021 lúc 16:20

Bài 1:program sothuc;

uses crt;

var a:array[1..10] of real;s,i,j:real;

begin

s:=0;

for i:=1 to 10 do begin writeln('A[',i,']=');readln(a[i]); end;

for i:=1 to 10 do if a[i]<0 then

for j:=1 to 10 do

begin a[j]:=sqr(a[i]); s:=s+a[j]; end;

writeln('tong binh phuong cac so am la: ',s:2:2); readln;

end. (Khi nào mình kiểm tra chạy lại trên phần mềm rồi sửa lại nếu sai nhé)

Bài 2: 

program soduong;

uses crt;

var a:array[1..100] of integer;s,i,n:integer;

begin

clrscr;

writeln('nhap do dai cua day');readln(n);

for i:=1 to n do begin

writeln('a[',i,']=');readln(a[i]);

if a[i] mod 2 = 0 then s:=s+a[i] end;

writeln('tong so duong trong day la',s:2:0);readln

end.

Bài 3: các số dương mà là số lẻ là sao thế bạn????

Khách vãng lai đã xóa