Удалить 1 элемент из массива const n=10;
var A: array [1..n] of integer;
i, k: integer;
begin
writeln ('Ввод значений элементов массива:');
for i := 1 to n do
read (a[i]);
write ('Ввод индекса k: ');
readln (k);
for i := k to n-1
do A[i] := A[i+1];
writeln('Массив после обработки:');
for i := 1 to n-1 do
write (A[i], ' ')
end.

79869106698    2   07.04.2021 14:24    0