Const n = 10; var a : array [1..n] of integer; r : boolean; i,j : integer; begin //Формирование массива пропущено
r := true; While r do begin if a[i] mod 2 =0 then begin for j := n-1 downto i + 2 do a[j] := a[j-1]; a[i+1] := 0; r := false; end; i := i +1; end; for i := 1 to n do writeln (a[i]); end.
Во избежании ошибок стоит учесть наличие такового элемента в массиве и размерность массива (чтобы его можно было корректно расширить на один элемент)
Помню был такой файловый менеджер для DOS - Norton Commander (в просторечии Нортон). Основные функции — копирование, удаление и переименование файлов, а также запуск исполняемых файлов DOS.
Еще был текстовый редактор для DOS - Лексикон. чем-то похож на нынешний Блокнот, также под каждый символ строго определенное место, никаких сдвигов-сжатий-расширений пробелов.
Были среды программирования под DOS, например Бейсик (Basic), Паскаль (Pascal) и другие
Даже была графическая рисовалка, вот только не помню, как называлась.
n = 10;
var
a : array [1..n] of integer;
r : boolean;
i,j : integer;
begin
//Формирование массива пропущено
r := true;
While r do
begin
if a[i] mod 2 =0 then
begin
for j := n-1 downto i + 2 do
a[j] := a[j-1];
a[i+1] := 0;
r := false;
end;
i := i +1;
end;
for i := 1 to n do
writeln (a[i]);
end.
Во избежании ошибок стоит учесть наличие такового элемента в массиве и размерность массива (чтобы его можно было корректно расширить на один элемент)