Задать вопрос
ИнформатикаИнформатика
15 августа, 06:32

Дан целочисленный массив размера 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; / /конец процедуры

+2
Ответы (1)
  1. 15 августа, 08:16
    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)
Нужен ответ
Найдите координаты точки, через которую проходят графики функций y=kx - 2k-3 при любых значениях параметра k
Нет ответа
Расстояние между двумя пунктами 40 км. Из одного из них в другой одновременно въезжают автобус и велосипедист. Скорость автобуса 50 км в час, велосипедиста 10 км в час.
Нет ответа
Вычислите (3-2 5/9) : 1/12 = 2) (7/18+5/12-2/3) * 0,9 = 3) (1,35-4/15) * 3/13+2 5/12 = 4) 0,1: (2 1/15+1/3) =
Нет ответа
Решите уравнение (x^2-5x+7) ^2 - (x-2) (x-3) = 1
Нет ответа
дан параллелограм АВСD. O-точка пересечения диагоналей. Найдите векторы OD-OC, 2BO + DA, CD+DB+BA
Нет ответа
Главная » Информатика » Дан целочисленный массив размера N. Удалить из массива первый элемент, равный заданному числу 6, и вывести размер полученного массива и его содержимое. Пример.
Регистрация Забыл пароль