Задать вопрос

написать программу на Pascal -

В одномерном массиве целых чисел, содержащем 20 элементов, удалить k-ый элемент массива. Массив заполняется случайным образом числами от 0 до 50.

+4
Ответы (1)
  1. Макрина
    0
    const

    n = 20;

    var

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

    i, k:integer;

    begin

    randomize;

    writeln ('Исходный массив: ') ;

    for i : = 1 to n do

    begin

    a[i] : = random (51) ;

    write (a[i], ' ') ;

    end;

    writeln;

    write ('k = ') ; readln (k) ;

    if (k > n) or (k < 1) then

    begin

    writeln ('элемента с таким индексом нет') ;

    readln;

    Exit;

    end;

    for i : = k to n - 1 do

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

    a[n] : = 0;

    writeln ('Измененный массив:') ;

    for i : = 1 to n - 1 do

    write (a[i], ' ') ;

    readln;

    writeln;

    end.
Знаешь ответ?
Не уверен в ответе?
✅ Найди верный ответ на вопрос «написать программу на Pascal - В одномерном массиве целых чисел, содержащем 20 элементов, удалить k-ый элемент массива. Массив заполняется ...» по предмету Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы