VCT nhập vào 1 mảng gồm n phần tử (n<101) sau đó in ra màn hình: dãy sau khi sắp xếp giảm dần giá trị tuyệt đối lớn nhất trong dãy các số chính phương trong dãy
VCT nhập vào 1 mảng gồm n phần tử (n<101) sau đó in ra màn hình: dãy sau khi sắp xếp giảm dần giá trị tuyệt đối lớn nhất trong dãy các số chính phương trong dãy
uses crt;
var m: array[1..100] of integer;
n,i,max,j,t,scp: integer;
begin
clrscr;
write (‘nhap n: ‘); readln (n);
for i:=1 to n do
begin
write (‘nhap m[‘,i,’]: ‘); readln (m[i]);
if max<=abs(m[i]) then max:=abs(m[i]);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if m[i]<m[j] then
begin
t:=m[i];
m[i]:=m[j];
m[j]:=t;
end;
write (‘day sau khi sap xep giam dan: ‘);
for i:=1 to n do write (m[i],’ ‘);
writeln;
writeln (‘gia tri tuyet doi lon nhat trong day: ‘,max);
write (‘cac so chinh phuong trong day: ‘);
for i:=1 to n do
begin
scp:=trunc(sqrt(m[i]));
if sqr(scp)=m[i] then
write (m[i],’ ‘);
end;
readln;
end.
program phuongt;
uses crt;
var A: array[1..100] of integer;
i, j, n, cp, t, max: integer;
begin
clrscr;
write(‘Nhap n = ‘); readln(n);
for i:=1 to n do
begin
write(‘A[‘, i,’] = ‘); readln(A[i]);
end;
write(‘Sap xep giam dan: ‘);
for i:=1 to n-1 do
for j:=i+1 to n do
if A[i]<A[j] then
begin
t:=A[i];
A[i]:=A[j];
A[j]:=t;
end;
for i:=1 to n do write(A[i]:4);
max:=abs(A[1]);
for i:=1 to n do if max<abs(A[i]) then max:=abs(A[i]);
write(‘Gia tri tuyet doi lon nhat trong day la: ‘, max);
write(‘Cac so chinh phuong trong day la: ‘);
for i:=1 to n do
begin
cp:=truc(sqrt(A[i]);
if sqr(cp)=A[i] then write(A[i]:4);
end;
readln
end.