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

Имя: Обработка массивов на языке Паскаль

Объяснение:

Для решения первой задачи требуется написать программу на языке Паскаль, которая обрабатывает массив, состоящий из 12 чисел с плавающей запятой. В программе нужно определить количество элементов массива с нечетными индексами в диапазоне от 5.1 до 32.4.

Программа будет выглядеть следующим образом:

pascal

program ArrayProcessing;



var

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

  count: integer;

  i: integer;



begin

  count := 0;



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

  arr[1] := 7.2;

  arr[2] := -2.5;

  arr[3] := 10.6;

  arr[4] := 4.8;

  arr[5] := 7.1;

  arr[6] := 9.2;

  arr[7] := 11.4;

  arr[8] := 2.3;

  arr[9] := 18.9;

  arr[10] := 6.4;

  arr[11] := 20.1;

  arr[12] := 15.3;



  for i := 1 to 12 do

  begin

    { Проверяем, что индекс элемента нечетный и значение элемента находится в диапазоне от 5.1 до 32.4 }

    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.

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

Программа для обработки двумерного массива может выглядеть так:

pascal

program TwoDArrayProcessing;



const

  rowSize = 3;

  colSize = 4;



var

  arr: array[1..rowSize, 1..colSize] of real;

  i, j: integer;

  columnsWithZero: string;



begin

  columnsWithZero := "";



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

  arr[1, 1] := 0;

  arr[1, 2] := 2.5;

  arr[1, 3] := -1.8;

  arr[1, 4] := 3.7;

  arr[2, 1] := 4.2;

  arr[2, 2] := 0;

  arr[2, 3] := 6.1;

  arr[2, 4] := -2.9;

  arr[3, 1] := -3.4;

  arr[3, 2] := 7.8;

  arr[3, 3] := 0;

  arr[3, 4] := 5.6;



  for j := 1 to colSize do

  begin

    for i := 1 to rowSize do

    begin

      { Проверяем, есть ли нулевой элемент в текущем столбце }

      if arr[i, j] = 0 then

      begin

        columnsWithZero := columnsWithZero + IntToStr(j) + ", ";

        Break;

      end;

    end;

  end;



  writeln("Номера столбцов с нулевыми элементами: ", columnsWithZero);

end.

Демонстрация:

Задайте значения элементов массива входными данными самостоятельно.



1) Входные значения массива:

7.2, -2.5, 10.6, 4.8, 7.1, 9.2, 11.4, 2.3, 18.9, 6.4, 20.1, 15.3



Ожидаемый вывод:

Количество элементов массива с нечетными индексами в диапазоне от 5.1 до 32.4: 4



2) Входные значения двумерного массива:

0, 2.5, -1.8, 3.7

4.2, 0, 6.1, -2.9

-3.4, 7.8, 0, 5.6



Ожидаемый вывод:

Номера столбцов с нулевыми элементами: 1, 2, 

Совет: Если вам сложно понять массивы сразу, попробуйте начать с более простых задач, чтобы понять концепции, и затем постепенно переходите к сложным задачам обработки массивов.

Проверочное упражнение: Создайте программу на языке Паскаль, которая будет находить сумму и среднее арифметическое элементов одномерного массива из 10 целых чисел. Задайте значения элементов массива самостоятельно.