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

Жужа

42

Конечно, я могу помочь вам с этими задачами программирования на языке Паскаль.

1) Для написания программы, которая будет обрабатывать массив из 12 вещественных чисел, зададим значения элементов массива самостоятельно. Затем мы найдем количество элементов массива с нечётными индексами в диапазоне от 5.1 до 32.4.

pascal

program ArrayProcessing;



const

  size = 12;



var

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

  count: integer;

  i: integer;



begin

  count := 0;

  

  { Задаем значения элементов массива }

  arr[1] := 3.2;

  arr[2] := 7.1;

  arr[3] := 6.4;

  arr[4] := 8.5;

  arr[5] := 1.9;

  arr[6] := 10.3;

  arr[7] := 2.7;

  arr[8] := 12.4;

  arr[9] := 5.2;

  arr[10] := 9.6;

  arr[11] := 15.8;

  arr[12] := 4.7;

  

  { Обрабатываем массив }

  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.

2) Для обработки двумерного массива и определения номеров столбцов, содержащих нулевые элементы, зададим значения элементов массива самостоятельно, учитывая, что в массиве могут быть положительные, отрицательные и нулевые элементы.

pascal

program TwoDimArrayProcessing;



const

  rows = 3;

  cols = 4;



var

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

  zeroColumns: array[1..cols] of boolean;

  i, j: integer;



begin

  { Задаем значения элементов массива }

  arr[1, 1] := 3;

  arr[1, 2] := 0;

  arr[1, 3] := -2;

  arr[1, 4] := 7;

  arr[2, 1] := 1;

  arr[2, 2] := 0;

  arr[2, 3] := 4;

  arr[2, 4] := 0;

  arr[3, 1] := -5;

  arr[3, 2] := 2;

  arr[3, 3] := 0;

  arr[3, 4] := -1;

  

  { Обрабатываем массив }

  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.

Надеюсь, эти программы помогут вам выполнить задачи. Если у вас будут дополнительные вопросы, не стесняйтесь задавать.