Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.03.2016, 23:20   #1
Дюша Метелкин
Пользователь
 
Регистрация: 21.03.2016
Сообщений: 27
По умолчанию Вставить новый элемент после всех элементов, которые заканчиваются на данную цифру

В одномерном целочисленном массиве вставить новый элемент после всех элементов, которые заканчиваются на данную цифру.
Дюша Метелкин вне форума Ответить с цитированием
Старый 22.03.2016, 12:30   #2
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Код:
program Project1;
uses crt;
var a,b : array [1..20] of integer;
i,j,N:integer;
begin
  clrscr;
  randomize;
  write('Cifra = ');readln(N);
  if N>9 then N:=random(30);
  j:=1;
  for i:=1 to 10 do
      begin
        a[i]:=random(21);
        write(a[i]:4);
        b[j]:=a[i];
        if a[i] mod 10 = N then
           begin
             inc(j);
             b[j]:=N
           end;
        inc(j)
      end;
  writeln;
  for i:=1 to j-1 do
      write(b[i]:4);
  readln;
end.
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вставить новый элемент после всех элементов schibeki Общие вопросы по Java, Java SE, Kotlin 1 19.05.2015 20:39
Вставить после всех строк, содержащих минимальный элемент массива, строку 2, 4, 6,… (Delphi) yana1213 Помощь студентам 10 15.05.2014 21:08
В массиве вставить новый элемент со значением Р вслед за наибольшим из отрицательных элементов, C zenya21 Помощь студентам 2 17.02.2014 22:25
Вставить число после всех элементов массива, кратных 3 Mclaren Помощь студентам 0 10.11.2009 02:40
Паскаль. Вставить в массив элемент со сдвигом всех остальных элементов Yulya Помощь студентам 1 31.03.2009 10:53