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.

10 tháng 12 2017

help me

#include <bits/stdc++.h>

using namespace std;

double a[1000];

int i,n;

int main()

{

cin>>n;

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

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

if (a[i]>0)

{

cout<<i<<" ";

return 0;

}

cout<<"Khong co so am trong day";

return 0;

}

15 tháng 1 2022

 

#include <bits/stdc++.h>

using namespace std;

long long b[5],i,n,k,dem,kt;

int main()

{

n=5;

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

for (i=1; i<=n; i++) cout<<b[i]<<" ";

cout<<endl;

dem=0;

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

cout<<"So so chan la: "<<dem<<endl;

cin>>k;

kt=0;

for (i=1; i<=n; i++) if (b[i]==k) 

{

cout<<i<<" ";

kt=1;

}

if (kt==0) cout<<"Khong co k trong day";

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

for (i=1; i<=n; i++) cout<<b[i]<<" ";

return 0;

}

3 tháng 3 2022

e cảm ơn nhưng a ơi cái e cần là pascal ý ạ

uses crt;

var b:array[1..5]of integer;

i,n,dem,k,tam,j:integer;

kt:boolean;

begin

clrscr;

n:=5;

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

for i:=1 to n do write(b[i]:4);

writeln;

dem:=0;

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

writeln('So luong so chan la: ',dem);

readln(k);

kt:=false;

for i:=1 to n do 

if b[i]=k then

begin

write(i:4);

kt:=true;

end;

if (kt==false) then writeln('Khong co k trong day')

else writeln;

for i:=1 to n-1 do 

  for j:=i+1 to n do 

if b[i]>b[j] then 

begin

tam:=b[i];

b[i]:=b[j];

b[j]:=tam;

end;

for i:=1 to n do write(b[i]:4);

readln;

end.

3 tháng 3 2022

e cảm ơn ạ

 

#include <bits/stdc++.h>

using namespace std;

long long b[15],i,n,k,dem;

bool kt;

int main()

{

n=15;

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

for (i=1; i<=n; i++) cout<<b[i]<<" ";

cout<<endl;

dem=0;

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

cout<<"So so chan la: "<<dem<<endl;

cin>>k;

kt=false;

for (i=1; i<=n; i++) if (b[i]==k) 

{

cout<<i<<" ";

kt=true;

}

if (kt==false) cout<<"Khong co k trong day";

else cout<<endl;

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

for (i=1; i<=n; i++) cout<<b[i]<<" ";

return 0;

}

1 tháng 1 2022

a

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

return 0;

}

uses crt;

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

i,n,k,h,dem,t,dem1,dem2,t1,t2:integer;

begin

clrscr;

for i:=1 to 100 do 

  begin

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

end;

n:=100;

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

for i:=1 to n do 

  if a[i]=k then write(i:4);

writeln;

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

dem:=0;

for i:=1 to n do 

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

writeln(h,' xuat hien ',dem,' lan trong mang');

t:=0;

for i:=1 to n do 

  t:=t+a[i];

writeln('Tong cac phan tu cua day la: ',t);

dem1:=0;

t1:=0;

dem2:=0;

t2:=0;

for i:=1 to n do 

  begin

if a[i]>0 then

begin

inc(dem1);

t1:=t1+a[i];

end;

if a[i]<0 then 

begin

inc(dem2);

t2:=t2+a[i];

end;

end;

writeln('Co ',dem1,' so duong');

writeln('Tong cac so duong la: ',t1);

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

writeln('Tong cac so am la: ',t2);

readln;

end. 

8 tháng 4 2021

bằng c++ hay pascal?