profile
Опубликовано 6 лет назад по предмету Информатика от htd65296

Добавить после первого элемента списка заданное количество элементов. Pascal ABC

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

    const

    N = 10;

    Elem = 666;

    var

    a: array [1..N+1] of integer;

    K: integer;

    begin

    for var i:=1 to N do

    a[i] := Random(100);

    writeln('Элементы массива a: ');

    for var i:=1 to N do

    write(a[i],' ');

    writeln;

    K := Random(1,N);

    for var i:=N downto K do

    a[i+1] := a[i];

    a[K] := 666;

    writeln('После вставки элемента ',Elem,' в позицию ',K,':');

    for var i:=1 to N+1 do

    write(a[i],' ');

    writel

Самые новые вопросы