Viết chương trình nhập vào mảng một chiều gồm n phần tử (n<=30). In ra mảng theo thứ tự giảm dần của các phần tử mảng, gồm : - Hàng 1: Các phần tử lẻ và chia hết cho 5 - Hàng 2: Các phần tử là số chẵn Pls help meeeee, mình không hiểu gì về tin cả huhu
Viết chương trình nhập vào mảng một chiều gồm n phần tử (n<=30). In ra mảng theo thứ tự giảm dần của các phần tử mảng, gồm : - Hàng 1: Các phần tử
By Reese
var a:array[1..30] of longint;
i,n,tam,j:longint;
begin
readln(n); {nhập số lượng phần tử}
for i:=1 to n do readln(a[i]);{nhập các phần tử theo hàng dọc}
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
for i:=1 to n do
if (a[i] mod 5=0) and (a[i] mod 2=1) then
write(a[i],’ ‘);writeln;
for i:=1 to n do
if a[i] mod 2=0 then write(a[i],’ ‘);writeln;
readln
end.
Program NN;
Uses crt;
Var A: array[1..100] of longint;
n,i,j,tg: longint;
Begin
Clrscr;
Write(‘Nhap n: ‘); Readln(n);
For i:=1 to n do
Read(A[i]);
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;
For i:=1 to n do
If (A[i] mod 5 = 0) and (A[i] mod 2 <> 0) then Write(A[i],’ ‘);
Writeln;
For i:=1 to n do
If (A[i] mod 2 = 0) then Write(A[i],’ ‘);
Readln
End.