Консультация № 194937
12.03.2019, 00:19
0.00 руб.
0 2 1
Здравствуйте! Прошу помощи в следующем вопросе по #PascalABC.NET:
Сформировать массив строк. Добавить в него строку с заданным номером

Обсуждение

давно
Посетитель
402002
11
12.03.2019, 22:01
общий
необходимо с использованием динамических массивов, помогите, пожалуйста
давно
Старший Модератор
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]
Удачи!
5
спасибо)
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа