Одномерный массив

[Sirega]

Пожалуйста, помогите написать прогу на задачу.
Дан одномерный массив состоящий из целых чисел. Вставить число Т перед и после всех элементов, который заканчиваются на данную цифру.
Заранее спасибо!

[Sirega]

Помогите плиз! А то скоро сдача, а моих "познаний", чтобы набрать прогу - не хватает(((

[Arigato]

А в чем трудность? В цикле по I просматриваем все элементы массива, если последняя цифра (a mod 10) = нужной - вставляем T в массив в позицию I - 1 и I + 1.
Дополнительно надо рассмотреть случае, если I = 1 или I = последний элемент массива.
Удачи!

[Sirega]

Спасибо, но у меня чот не сходится( Может я тебя не так понял....
вот
i:=1;
while i<=nn do
begin if a[i]=m then
begin
for j:=nn Downto i Do
a[j+1]:=a[j];
a[i]:=T;
n:=n+1;
i:=i+1;
end;
begin
for j:=nn Downto i+1 Do
a[j+1]:=a[j];
a[i+1]:=T;
n:=n+1;
i:=i+1;
end;
i:=i+1;
end;

[lexus_ilia]

Arigato, вы немного не правы, т.к. надо не просто вставить элемент, а сдвинув все элементы на 1-ин вставить элемент, а это уже намного интереснее, т.к. например нашли мы наше число которое имеет позицию, ну например 5, значит, берём весь массив начиная с 5-ти и перемещаем на 1-цу вперёд (начинать предлагаю с конца), т.е. n-ый станет на место n+1, n-1 -ый на место n-го, так и образуем так сказать "дыру" в массиве, потом вставляем в эту "дыру" значение которе надо, потом надо так же сдвигать элементы, начиная уже с 7-го, т.к. на 5-ом наше число которое мы вставили, а на 6-ом то которое мы нашли, после того как сдвинули, вставляем наше число и продолжаем проверку изменив значаение (i-используется как позици обычно) на i+2, вот так вот...

[lexus_ilia]

Короче лови...

Program xa;
const
 max=100;
var
 a:array[1..max] of integer;
 i,n,k,l,t,j:integer;
begin
 Writeln('BBedute KoLu4ectBo eleMeHToB');
 Readln(n);
 Writeln('BBedute Camu eleMeHTbl');
 for i:=1 to n do
 begin
  Write('A[' ,i, ']=');
  readln(a[i]);
 end;
 Writeln('BBedute L/uFPy');
 Readln(k);
 Writeln('BBedute BctaBl9Emoe 4uClo T');
 readln(t);
 Writeln('MaccuB do u3MeHeHUu');
 for i:=1 to n do
  write(a[i], ' ');
 readln;
 i:=1;
 while i<=n do
 begin
  if a[i] mod 10=k then
  begin
   for j:=n+1 downto i+1 do
    a[j]:=a[j-1];
   a[i]:=t;
   inc(n);
   for j:=n+1 downto i+3 do
    a[j]:=a[j-1];
    inc(n);
    a[i+2]:=t;
    inc(i,2);
   end
  else
   inc(i);
  end;
 Writeln('noLy4uBLLIeUc9 maccuB');
 for i:=1 to n do
  Write(a[i], ' ');
 readln
end.

[Sirega]

Спасибо большое!!! реально помог очень))))