давно
Старший Модератор
31795
6196
13.03.2019, 14:16
общий
это ответ
Здравствуйте, luxv99!
Смотрите код:
[code lang=pascal]var
a:array of string;
b,c:integer;
begin
a:=Arr('aaaa','bbbb','cccc','dddd','eeee','ffff','hhhh','gggg','iiii','jjjj','kkkk','llll','mmmm','nnnn');
a.Println;
repeat
write('Enter n:');
readln(b);
until b in[0..a.Length-1];
Setlength(a,a.Length+1);
for c:=a.Length-1 downto b+1 do
a[c]:=a[c-1];
a[b]:='zzzz';
a.Println;
end.[/code]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.