Tin học viết chương trình nhập mảng một chiều gồm n phần tử kiểu số nguyên, n nhập từ bàn phím. Hãy chèn thêm phần tử thứ k vào dãy đã cho. 24/07/2021 By Remi viết chương trình nhập mảng một chiều gồm n phần tử kiểu số nguyên, n nhập từ bàn phím. Hãy chèn thêm phần tử thứ k vào dãy đã cho.
uses crt; var n,i,k:byte; a:array[0..100] of integer; t:integer; BEGIN clrscr; write(‘Nhap so phan tu:’); readln(n); for i:=1 to n do begin write(‘Nhap a[‘,i,’]:’); readln(a[i]); end; write(‘Nhap phan tu can chen:’); readln(t); write(‘Nhap vi tri can chen:’); readln(k); for i:=k to n do a[i+1]:=a[i]; a[k]:=t; write(‘Day so sau khi chen:’); for i:=1 to n+1 do write(a[i],’ ‘); readln END. Trả lời
program chenphantu; uses crt; var A:array[1..100] of integer; n,i,k:byte; m:integer; begin clrscr; write(‘Nhap so luong phan tu n: ‘); readln(n); writeln(‘NHAP GIA TRI TUNG PHAN TU CUA DAY’); for i:=1 to n do begin write(‘Phan tu thu ‘,i,’: ‘); readln(A[i]); end; writeln(‘Day vua nhap la:’); for i:=1 to n do write(A[i],’ ‘); writeln; write(‘Nhap phan tu muon chen: ‘); readln(m); write(‘Nhap vi tri k muon chen: ‘); readln(k); for i:=n+1 downto k+1 do A[i]:=A[i-1]; A[k]:=m; writeln(‘Day sau khi chen ‘,m,’ tai vi tri ‘,k,’ la:’); for i:=1 to n+1 do write(A[i],’ ‘); readln end. Trả lời