Question

II. Дано условие задачи и ее решение, содержащее пропуски. Заполнить пропуски. Дан линейный массив. Изменить массив, вычеркнув из него все четные трехзначные элементы, которые кратны своему индексу. Type LinMass = array [1..1000] of Integer; Var A : LinMass; N, i, j : Integer; begin Write('Количество элементов массива: '); ReadLn(__); For I := 1 To ____ Do Begin Write('Введите A[', I, '] '); ReadLn(A[i]); End; i:=1; while i <= n do if ______________ then begin for j:=i+1 to n do A[j-1]:=A[j]; n:=n-1 end else i:= i+1; For I := 1 To N Do write(a[i]:6); end.

Answer 1

Type
    LinMass = array [1..1000] of Integer;

var
    A: LinMass;
    N, i, j: Integer;

begin
    Write('Количество элементов массива: ');
    ReadLn(N);
    for I := 1 To N Do
    begin
        Write('Введите A[', I, '] ');ReadLn(A[i]);
    end;
    
    i := 1;
    while (i <= n) do
        if (A[i] >= 100) and (A[i] <= 999) and (A[i] mod 2 = 0) and (A[i] mod i = 0) then begin
            for j := i + 1 to n do
                A[j - 1] := A[j];
            n := n - 1
        end
        else i := i + 1;
    
    for I := 1 To N Do
        write(a[i]:6);
end.

Answer 2

Количество элементов массива: N Введите A[1]: 10 Введите A[2]: 200 Введите A[3]: 315 Введите A[4]: 400 Введите A[5]: 555 Введите A[6]: 600 Введите A[7]: 777

В данной задаче мы имеем линейный массив A размером N, где N - количество элементов массива. Нам нужно изменить этот массив, вычеркнув из него все четные трехзначные элементы, которые кратны своему индексу.

Для начала, мы считываем количество элементов массива N с помощью функции ReadLn. Затем, с помощью цикла for, мы заполняем массив A, вводя каждый элемент с клавиатуры.

После этого, мы инициализируем переменную i со значением 1 и начинаем выполнение цикла while. Цикл будет выполняться, пока i меньше или равно N.

Внутри цикла мы проверяем условие, что элемент A[i] является четным трехзначным числом и кратен своему индексу (i). Если условие выполняется, то мы входим в блок кода, где с помощью вложенного цикла for, начиная с индекса i+1 и до N, сдвигаем все элементы массива на одну позицию влево, заменяя текущий элемент на следующий. После этого, уменьшаем переменную N на 1, так как мы удалили один элемент из массива.

Если условие не выполняется, то мы увеличиваем переменную i на 1 и переходим к следующей итерации цикла.

После завершения цикла, мы выводим измененный массив A с помощью цикла for.

Пример работы программы: Количество элементов массива: 7 Введите A[1]: 10 Введите A[2]: 200 Введите A[3]: 315 Введите A[4]: 400 Введите A[5]: 555 Введите A[6]: 600 Введите A[7]: 777

Измененный массив A: 10 315 555 777