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

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

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

    Легчайшая.

    const N = 10;

    var

    a: array [1..N] 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:=K to N-1 do

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

    writeln('После удаления элемента с индексом ',K,':');

    for var i:=1 to N-1 do

    write(a[i],' ');

    writeln;

    end.

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