1: Viết CT nhập vào mảng các số nguyên. Xóa phần tử tại vị trí k
uses crt;
var a,b:array[1..100]of integer;
i,n,k,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap k='); readln(k);
if (k>0) and (k<=n) then
begin
dem:=0;
for i:=1 to n do
if i<>k then
begin
inc(dem);
b[dem]:=a[i];
end;
writeln('Mang sau khi xoa phan tu o vi tri thu ',k,' la: ');
for i:=1 to dem do
write(b[i]:4);
end
else writeln('Vui long nhap lai k');
readln;
end.
2: Viết CT nhập vào mảng các số nguyên. Xuất ra màn hình chỉ số có phần tử có giá trị lớn nhất.
uses crt;
var a:array[1..100]of integer;
i,n,max:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln('Chi so co phan tu la gia tri lon nhat trong mang la: ');
for i:=1 to n do
if max=a[i] then write(i:4);
readln;
end.
