Câu 7:
uses crt;
var a,n,lt,i:longint;
begin
clrscr;
write('Nhap a: ');readln(a);
write('Nhap n: ');readln(n);
lt:=1;
for i:=1 to n do lt:=lt*a;
writeln(lt);
readln;
end.
Câu 8:
uses crt;
var n,i,j,t:longint; a:array[1..100000]of longint;
begin
clrscr;
write('Nhap n: ');readln(n);
for i:=1 to n do read(a[i]); readln;
for i:=1 to n do
for j:=1 to i-1 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],' ');
readln;
end.
