Массив (вставка элемента)

Посмотреть архив целиком
program vstavka_elementa;

{$APPTYPE CONSOLE}

uses
SysUtils;
var a:array[1..100] of integer;
i,n,b,k:integer;
begin
writeln('Vvedite kolichestvo elementov massiva');
readln(n);
writeln('Vvedite massiv');
for i:=1 to n do read (a[i]);
readln;

writeln('Vvedite buduushii nomer vstavlennogo chisla');
readln(k);
writeln('Vvedite chislo dlia vstavki');
readln(b);
if (k>=0) and (k for i:=n downto k do a[i+1]:=a[i];
a[k]:=b;
n:=n+1;
end;
writeln('Izmenennii massiv');
for i:=1 to n do write (a[i],' ');
writeln;
readln;
end.





Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.