1) Напишите программу на языке Паскаль для обработки массива, состоящего из 12 десятичных чисел. Введите значения

1) Вот программа на языке Паскаль для обработки массива из 12 десятичных чисел:

pascal

program ArrayProcessing;



const

  size = 12;



var

  arr: array[1..size] of Real;

  count: Integer;

  i: Integer;



begin

  // Ввод значений элементов массива

  for i := 1 to size do

  begin

    Write("Введите значение элемента ", i, ": ");

    ReadLn(arr[i]);

  end;



  // Подсчет количества элементов с нечетными индексами в заданном диапазоне

  count := 0;

  for i := 1 to size do

  begin

    if (i mod 2 <> 0) and (arr[i] >= 5.1) and (arr[i] <= 32.4) then

      count := count + 1;

  end;



  // Вывод результата

  WriteLn("Количество элементов с нечетными индексами в диапазоне от 5.1 до 32.4: ", count);



end.

Объявляем константу `size`, определенную как 12, для указания размера массива. Затем объявляем массив `arr` с типом `Real` и размером `size`. Объявляем переменные `count` для подсчета количества элементов и `i` для итераций.

Затем мы проходимся по массиву и заполняем его значениями, вводимыми пользователем.

После этого мы выполняем цикл по массиву и проверяем каждый элемент на нечетность индекса и его принадлежность заданному диапазону. Если элемент соответствует условиям, увеличиваем счетчик `count`.

Наконец, выводим количество элементов, удовлетворяющих условию.

2) Алгоритм и программа для обработки двумерного массива:

pascal

program TwoDimensionalArrayProcessing;



const

  rows = 3;

  cols = 4;



var

  arr: array[1..rows, 1..cols] of Integer;

  zeroColumns: array[1..cols] of Boolean; // массив для хранения информации о наличии нулевых элементов в каждом столбце

  i, j: Integer;



begin

  // Ввод значений элементов массива

  for i := 1 to rows do

  begin

    for j := 1 to cols do

    begin

      Write("Введите значение элемента [", i, ",", j, "]: ");

      ReadLn(arr[i, j]);

    end;

  end;



  // Проверка столбцов на наличие нулевых элементов

  for j := 1 to cols do

  begin

    zeroColumns[j] := True; // предполагаем, что столбец содержит нулевые элементы

    for i := 1 to rows do

    begin

      if arr[i, j] <> 0 then

      begin

        zeroColumns[j] := False; // если найден ненулевой элемент в столбце, переопределяем значение

        break; // выходим из цикла, т.к. нам уже известно, что столбец не содержит нулевых элементов

      end;

    end;

  end;



  // Вывод результатов

  WriteLn("Номера столбцов, содержащих нулевые элементы:");

  for j := 1 to cols do

  begin

    if zeroColumns[j] then

      WriteLn(j);

  end;



end.

Тут мы также объявляем константы `rows` и `cols` для определения размера двумерного массива. Массив `arr` имеет размерность `rows` на `cols`, а массив `zeroColumns` используется для хранения информации о наличии нулевых элементов в столбцах.

Мы снова проходимся по массиву, чтобы заполнить его значениями, вводимыми пользователем.

После этого мы проверяем каждый столбец массива на наличие нулевых элементов. Если нулевых элементов нет, соответствующий элемент `zeroColumns` устанавливается в `False`, иначе - в `True`.

Затем мы выводим номера столбцов, содержащих нулевые элементы.

Размерность массива указана как 3 строки и 4 столбца для примера. Вы можете изменить их значения по своему усмотрению, если требуется другой размер массива.