Program ydalenie;
Var i,k; integer
a: array [1..6] of
For i:= 1 to 6 do
READ (A);
VRITE ('nomer elementa kotorii hotim ybrat)
READ (k); в место к ставим номер массива.
For i: 4 to 6 do
A:= A[t+1]
A [5]:=A[6]
For i:= 1 to 5 do
WRITE (A,'');
End.
Это прога на...