Quảng cáo
1 câu trả lời 461
Program chuongtrinh;
Uses crt!
Var A:array[1..100] of integer;
I,n,k : integer;
Begin
Clrscr ;
Write('nhao so phan tu trong day'); readln(n);
For i:=1 do n do
Begin
Write('A[',i,']'); readln(A[i]);
End;
Write('vi tri chen '); readln(k);
For i:=n+1 downto k+1 do
A[i] :=A[i-1];
Write('nhap so can chen'); readln(A[i]);
For i:=1 to n+1 do
Write(A[i]);
Readln
End.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK45584
-
Đã trả lời bởi chuyên gia
29017 -
Hỏi từ APP VIETJACK28522
Gửi báo cáo thành công!
