1,Chọn các thành phần của bảng là như thế nào?Hãy nêu các kiểu chọn
2,Nêu các bước để giãn khoảng cách giữa các chữ với nhau
1,Chọn các thành phần của bảng là như thế nào?Hãy nêu các kiểu chọn
2,Nêu các bước để giãn khoảng cách giữa các chữ với nhau
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.