Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
619
466
Program Chen;
Uses crt;
Var i,spt, so,vitri: Integer;
A: Array[1..100] Of Integer;
Begin
Clrscr;
Writeln(' + CHEN MOT SO VAO MANG +');
Writeln('-------------------------------');
Write('-Co bao nhieu phan tu-: ');
Readln(spt);
For i:=1 To spt Do
Begin
Write('-Phan tu A[',i,']= '); Readln(a[i]);
End;
Writeln; Writeln('--MANG TRUOC KHI CHEN--');
For i:=1 To spt Do Write(a[i]: 6); Writeln;
Write('-Can che so: ');
Readln(so); Write('-Vao vi tri: ');
Readln(vitri);
For i:=spt+1 Downto Vitri+1 Do Writeln;
a[i]:=a[i-1]; a[vitri]:=so; spt:=spt+ 1;
Writeln('MANG SAU KHI CHEN');
Readln;
For i:=1 To spt Do Write(a[i]: 6);
End.
truong00025
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin
94
2963
45
Bn ơi cái này nóa giống vs câu trả lời mà mik đã báo cáo vi phạm á bn
94
2963
45
Bn muốn mik báo cáo ko ạ vừa copy mà vừa ko đọc kĩ đề nữa
94
2963
45
:))
619
73
466
đừng mà
619
73
466
mk hứa sẽ k bao giờ như vậy nx ạ