Bài 1: Viết chương trình nhập vào một dãy số nguyên n số. Nhập thêm một số và chèn nó vào phía sau phần tử thứ k
Bài 2: Viết chương trình nhập vào một dãy số nguyên n số. Xóa đi số thứ k và in ra màn hình dãy số mới
Bài 1: Viết chương trình nhập vào một dãy số nguyên n số. Nhập thêm một số và chèn nó vào phía sau phần tử thứ k
Bài 2: Viết chương trình nhập vào một dãy số nguyên n số. Xóa đi số thứ k và in ra màn hình dãy số mới
Bài 1:
var n,k,i,t:integer;
a: array[1..100000] of integer;
begin
write(‘Nhap n: ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap phan tu thu ‘,i, ‘: ‘);
read(a[i]);
end;
writeln;
write(‘Nhap k va phan tu can chen: ‘); readln(k,t);
for i:=k+2 to n+1 do
a[i]:=a[i-1];
a[k+1]:=t;
readln;
end.
Bài 2:
var a:array[1..10000] of longint;
n,i,k:longint;
begin
write(‘Nhap n,k: ‘); readln(n,k);
for i:=1 to n do
begin
write(‘Nhap phan tu thu ‘,i, ‘: ‘);
read(a[i]);
end;
writeln(‘Mang sau khi xoa phan tu thu k la’);
for i:=1 to n do
if i<>k then write(a[i],’ ‘);
readln;
end.
Bài 1:
program oken;
uses crt;
var a: array [1..100] of integer;
n,k,i,m: integer;
begin
clrscr;
write(‘nhap so phan tu cua mang: ‘); readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]: ‘);
readln(a[i]);
end;
write(‘nhap vi tri chen them so: ‘); readln(k);
write(‘nhap so chen vao: ‘); readln(m);
for i:=1 to n do
begin
if i=k then write(m,’ ‘);
write(a[i],’ ‘);
end;
readln;
end.
Bài 2:
program oken;
uses crt;
var a: array [1..100] of integer;
n,k,i: integer;
begin
clrscr;
write(‘nhap so phan tu cua mang: ‘); readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]: ‘);
readln(a[i]);
end;
write(‘day so cua mang: ‘);
for i:=1 to n do write(a[i],’ ‘);
writeln;
write(‘nhap vi tri so can xoa: ‘); readln(k);
write(‘day so cua mang sau khi xoa: ‘);
for i:=1 to k-1 do
write(a[i],’ ‘);
for i:=k+1 to n do
write(a[i],’ ‘);
readln;
end.