Исходник программы, которая удаляет определённый элемент из массива и выводит исходный массив и массив после удаление элемента. Пояснительных комментариев нет. Открывается с помощью Pascal ABC, Pascal ABC.NET. Скачать исходник и увидеть исходный код программы Вы можете ниже.
Исходный код программы удаления эл-та из массива:
const N = 10;
var
a: array [1..N] of integer;
K: integer;
begin
for var i:=1 to N do
a[i] := Random(100);
writeln('Элементы массива a: ');
for var i:=1 to N do
write(a[i],' ');
writeln;
K := Random(1,N);
for var i:=K to N-1 do
a[i] := a[i+1];
writeln('После удаления элемента с индексом ',K,':');
for var i:=1 to N-1 do
write(a[i],' ');
writeln;
end. Скачать исходник: delmas.pas