Nhập từ bàn phím dãy n các số nguyên dương. Em hãy viết chương trình thực hiện các yêu cầu sau
a) Tìm giá trị lớn nhất và nhỏ nhất
b) Tính tổng các phần tử của dãy
c) Tìm tổng các phần tử chẵn và lẽ
d) Sắp xếp dãy trên theo thứ tự tăng dần và giảm dần
Mọi người giúp e nha e đang cần gấp
#include<bits/stdc++.h>
using namespace std;
int main()
{
int n,total=0,tl=0,tc=0;
cin>>n;
int arr[n];
for(int i=0;i<n;i++){
cin>>arr[i];
total+=arr[i];
if(arr[i]%2==0){
tc+=arr[i];
}
else{
tl+=arr[i];
}
}
int lon=arr[0],be=arr[0];
for(int i=0;i<n;i++){
if(lon<arr[i]){
lon=arr[i];
}
if(be>arr[i]){
be=arr[i];
}
}
cout<<“Gia tri lon nhat: “<<lon<<endl;
cout<<“Gia tri be nhat: “<<be<<endl;
cout<<“Tong cac phan tu chan: “<<tc<<endl;
cout<<“Tong cac phan tu le: “<<tl<<endl;
for(int i=0;i<n-1;i++){
for(int j=i+1;j<n;j++){
if(arr[i]<arr[j]){
int temp=arr[i];
arr[i]=arr[j];
arr[j]=temp;
}
}
}
cout<<“Day giam dan: “;
for(int i=0;i<n;i++){
cout<<arr[i]<<” “;
}
for(int i=0;i<n-1;i++){
for(int j=i+1;j<n;j++){
if(arr[i]>arr[j]){
int temp=arr[i];
arr[i]=arr[j];
arr[j]=temp;
}
}
}
cout<<“\nDay tang dan: “;
for(int i=0;i<n;i++){
cout<<arr[i]<<” “;
}
//samon247
return 0;
}
uses crt;
var a : array[1..100] of integer;
var n,i,min,max,t,tl,j,tc,tg,tg1 : integer;
begin clrscr;
t:=0;tl:=0; tc:=0;
write(‘Nhap n:’);
readln(n);
for i:=1 to n do begin
write(‘Nhap a[‘,i,’]=’);
readln(a[i]); end;
min:=a[1];
max:=a[1];
for i:=1 to n do
if min > a[i] then min:=a[i];
for i:=1 to n do
if max < a[i] then max:=a[i];
writeln(‘Gia tri lon nhat :’, max);
writeln(‘Gia tri nho nhat :’, min);
for i:=1 to n do t:=t+a[i];
writeln(‘Tong cac phan tu cua day :’, t);
for i:=1 to n do
if a[i] mod 2 = 0 then tc:=tc+a[i]
else tl:=tl+a[i];
writeln(‘Tong cac phan tu chan :’, tc);
writeln(‘Tong cac [han tu le :’, tl);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i] > a[j] then
begin
tg:=a[i];
a[i]:=a[j];
a[j]:=tg;
end;
writeln(‘Sap xep day tang la :’);
for i:=1 to n do write(a[i]:3);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i] < a[j] then
begin
tg1:=a[i];
a[i]:=a[j];
a[j]:=tg1;
end;
writeln;
writeln(‘Sap xep day giam la :’);
for i:=1 to n do write(a[i]:3);
readln
end.