В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
dadamuhamedovag
dadamuhamedovag
14.05.2022 20:17 •  Информатика

Вставить по одному элементу перед всеми элементами одномерного массива, кратными 5. массив сформировать через датчик случайных чисел.

Показать ответ
Ответ:
tereshkova11
tereshkova11
09.07.2020 21:51
Программа вставляет перед элементом, кратным 5, элемент со значением 99 (чтобы его было видно среди прочих из диапазона [1..50] )

const
  nm = 20;

var
  i, j, n, nn: integer;
  a: array[1..nm] of integer;

begin
  n := nm div 2;
  nn := n;
  Randomize;
  Writeln('*** Исходный массив ***');
  for i := 1 to n do
  begin
    a[i] := Random(50) + 1;  { [1..50] }
    Write(a[i]:3)
  end;
  for i := n downto 1 do
  begin
    if a[i] mod 5 = 0 then begin
      nn := nn + 1;
      for j := nn downto i do a[j] := a[j - 1];
      a[i] := 99
    end
  end;
  Writeln(#13#10, '*** Массив-результат ***');
  for i := 1 to nn do Write(a[i]:3);
  Writeln
end.

*** Исходный массив ***
 23 22 27 16 45 42 15 13 27 31
*** Массив-результат ***
 23 22 27 16 99 45 42 99 15 13 27 31
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота