MrNikita
Опубликовано 7 лет назад по предмету Информатика от MrNikita


Дан массив (от 1 до n),заданный случайным образом. Добавить на К место элемент равный двум.

Нужна прога для Паскаль АВС

Спасибо!

  1. Ответ
    Ответ дан sinbad7

    1) элемент с номером K заменяется на 2

    var

    a:array [1..20] of integer;

    i,n,k:integer;

    begin

    readln(n);

    for i:=1 to n do

    begin

    a[i]:=random(50);

    write(a[i]:3);

    end;

    writeln;

    readln(k);

    a[k]:=2;

    for i:=1 to n do

    write(a[i]:3);

    end.

    2) элемент вставляется в массив остальные элементы сдвигаются вправо

    var a: array [1..20] of integer; i, n, k: integer;

    begin readln(n); for i := 1 to n do begin a[i] := random(50); write(a[i]:3); end; writeln; readln(k); for i:=n+1 downto k do a[i]:=a[i-1]; a[k] := 2; for i := 1 to n+1 do write(a[i]:3);end.

Не тот ответ, который вам нужен?
Найди нужный
Самые новые вопросы
99335871
Другие предметы - 1 год назад

В какой оболочке земли живёт большинство живых организмов?

99335871
Другие предметы - 1 год назад

Из каких неживых частей состоит экосистема

mandrykin
Другие предметы - 1 год назад

На какие расы делятся население земли

kinda2007
Другие предметы - 1 год назад

Определение статуса военнослужащего (краткий ответ!!)

Санёк1999
Другие предметы - 1 год назад

Проведи следущие наблюдения в классе: один учащийся спокойно сидит за партой, слушая объяснения учителя; второй записывает план объяснения в тетради ; третий ученик вышел к доске отвечать на вопрос учителя. назови движущиеся тела. относительно каких других тел они движутся ?

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.

Задай вопрос

Лучшие за месяц


Интересные статьи:


Пошаговый план подготовки к ЕГЭ за полгода для школьников
Не сдал ЕГЭ пересдача апелляция альтернативные пути
10 ошибок на ЕГЭ по русскому и способы их избежать
Выбор предметов ЕГЭ для поступления
Секреты подготовки к экзаменам дома от отличников