Задать вопрос
ИнформатикаИнформатика
2 октября, 11:14

Дан целочисленный массив размера N. Удалить из массива первый элемент, равный заданному числу 6, и вывести размер полученного массива и его содержимое. Пример. Процедура удаления элемента: Procedure Del (var z:omas; k:byte); / /процедура Del с описанием формальных параметров - переменных z типа omas и формальных параметров-значений k типа byte var i:byte; / /описание локальных переменных i типа byte begin / /начало процедуры for i:=k to n-1 do / /цикл с параметром: для i от k до n-1 делаем (начиная с элемента с номером k и до предпоследнего элемента) z[i]:=z[i+1]; / /элементу массива присваиваем предыдущий элемент z[n]:=0; / /последний заменяем на 0 end; / /конец процедуры

+5
Ответы (1)
  1. 2 октября, 11:28
    0
    Решаем:

    Const n=20;

    type omas=array[1 ... n] of integer;

    Procedure Del (var z:omas; k:byte);

    var i:byte;

    begin

    for i:=k to n-1 do z[i]:=z[i+1];

    z[n]:=0;

    end;

    var a:omas; i, b:integer;

    begin

    Randomize;

    for i:=1 to n do

    begin

    a[i]:=random (20);

    write (a[i]:4);

    end;

    writeln;

    b:=6;

    i:=1;

    while (i<=n) and (a[i]b) do i:=i+1;

    if i<=n then

    begin

    Del (a, i);

    writeln ('Размерность массива = ', n-1);

    for i:=1 to n-1 do write (a[i]:4);

    writeln;

    end else writeln ('Массив не изменился');

    end.

    Пример:

    12 13 6 7 17 1 18 17 3 2 12 3 16 6 7 13 0 2 5 18

    Размерность массива = 19

    12 13 7 17 1 18 17 3 2 12 3 16 6 7 13 0 2 5 18
Знаешь ответ на этот вопрос?
Сомневаешься в правильности ответа?
Получи верный ответ на вопрос 🏆 «Дан целочисленный массив размера N. Удалить из массива первый элемент, равный заданному числу 6, и вывести размер полученного массива и его ...» по предмету 📕 Информатика, используя встроенную систему поиска. Наша обширная база готовых ответов поможет тебе получить необходимые сведения!
Найти готовые ответы
Похожие вопросы информатике
Что напечатает следующая программа? program p3; var x, y:integer; procedure p1 (var a, b:integer); begin a:=sqr (a); b:=sqr (a) + a; end; procedure p2 (a, b:integer); begin a:=sqr (a); b:=sqr (b) + b; end; begin x:=2; y:=2; p1 (x, y);
Ответы (1)
1. Дан массив 1 2 3 4 5 6 7 8 7 0 - 8 - 4 2 16 - 10 2 А Определите: А) размерность массива; Б) значение элемента А[3]; В) значение максимального элемента массива; Г) индекс первого отрицательного элемента массива;
Ответы (1)
6) Определите, что будет напечатано в результате работы следующего фрагмента программы: var n, s: integer; begin s : = 0; for n:=4 to 13 do begin s : = s + 15; end; write (s) end.
Ответы (1)
Дан целочисленный массив размера N. Преобразовать его, прибавив к нечетным числам последний элемент. Первый и последний элемент массива не изменять.
Ответы (1)
1. Заполнить массив с клавиатуры целыми числами. Вывести элементы этого массива на экран. (Добавить комментарии) 2. Заполнить массив таким образом, чтобы каждый его элемент был равен утроенному значению его порядкового номера (индекса). 3.
Ответы (1)
Нужен ответ
1. Назовите город, правитель которого начал Троянскую войну. В каком веке это произошло? 2. Сформулируйте историческую причину начала Троянской войны? 3. Сформулируйте мифологическую причину начало Троянской войны?
Нет ответа
Используя свойство 3 степеней, запишите в виде степениа) (2^2) ^3 б) (3^4) ^2 в) (3^7) ^2 г) (5^3) ^4 д) (10^3) ^5 е) (7^2) ^4
Нет ответа
Расположите числа 5,28; - 1,634; - 1,34; - 1, (3); 2,3 (4) и 2, (34) в порядке убывания
Нет ответа
сравнить природные условия финикии древнего египта и индии
Нет ответа
Расстояние между двумя пунктами 40 км. Из одного из них в другой одновременно въезжают автобус и велосипедист. Скорость автобуса 50 км в час, велосипедиста 10 км в час.
Нет ответа
Главная » Информатика » Дан целочисленный массив размера N. Удалить из массива первый элемент, равный заданному числу 6, и вывести размер полученного массива и его содержимое. Пример.
Регистрация Забыл пароль