lỗi

nó k load được ảnh đấy bác ạ @@

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n,chon;

int main()

{

cin>>n;

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

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

cin>>chon;

if (chon==0) 

{

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

}

else 

{

for (i=n; i>=1; i--) cout<<a[i]<<" ";

}

return 0;

}

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n,t,dem;

int main()

{

cin>>n;

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

t=0;

dem=0;

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

if ((a[i]>0) and (i%2==1))

{

t+=a[i];

dem++;

}

cout<<fixed<<setprecision(2)<<(t*1.0)/(dem*1.0);

return 0;

}

#include <bits/stdc++.h>

using namespace std;

long long x,n,i,t1,t2;

int main()

{

cin>>n;

t1=0;

t2=0;

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

{

cin>>x;

if (x>0) t1+=x;

else t2+=x;

}

cout<<"Tong cac so duong la: "<<t1<<endl;

cout<<"Tong cac so am la: "<<t2;

return 0;

}

#include <bits/stdc++.h>

using namespace std;

long long x,n,i,dem,t;

int main()

{

cin>>n;

dem=0;

t=0;

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

{

cin>>x;

if (x%2==0) t+=x;

if (x%3==0) dem++;

}

cout<<"Tong cac so chan la: "<<t<<endl;

cout<<"So luong phan tu chia het cho 3 la: "<<dem;

return 0;

}

Program HOC24;

var i,n: integer;

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

ta,td: longint;

begin

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

for i:=1 to n do 

begin

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

end;

ta:=0; td:=0;

for i:=1 to n do 

begin

if a[i]>0 then td:=td+a[i];

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

end;

writeln('Tong nguyen duong la: ',td);

writeln('Tong nguyen am la: ',ta)

readln

end.

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

cout<<"Cac so duong la: ";

for (i=1; i<=n; i++) if (a[i]>0) cout<<a[i]<<" ";

cout<<endl;

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

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

return 0;

}

#include <bits/stdc++.h>

using namespace std;

long long a[250],ln,i,n;

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;

for (i=1; i<=n; i++) if (ln==a[i]) cout<<i<<" ";

return 0;

}

#include <bits/stdc++.h>

using namespace std;

long long a,b,c;

int main()

{

cin>>a>>b>>c;

cout<<min(a,min(b,c));

return 0;

}

pascal thì làm như nào ạ