Question

Сделать программу в Pascal. 1. Организуйте ввод и вывод одномерного массива в строку, в столбец. 2. Найдите произведение ненулевых элементов одномерного массива. 3. Найдите количество элементов одномерного массива, чьи значения лежат в пределах от -5 до 5 включительно. 4. Выведите индексы нулевых элементов одномерного массива. Выходные данные оформите в виде: Нулевые элементы массива находятся на 2, 3, 5, 8 местах.

Answer 1

begin

 var a := Arr(1, 0, 2, 0, 3, 0, 4, 0, 5);

 Println('в строку:'); a.Println;

 Println('в столбец:'); a.Println(Newline);

 Println('произведение ненулевых элементов:');

 a.Where(x -> x <> 0).Aggregate(1, (p, x)-> p * x).Println;

 Println('кол-во элементов со значениями в пределах (-5, 5):');

 a.Where(x -> x.InRange(-5, 5)).Count.Println;

 Println('нулевые элементы находятся на местах:');

 a.IndexesOf(x -> x = 0).Select(x -> x + 1).Println;

end.

Answer 2

Для выполнения указанных задач создадим программу на языке Pascal. Ниже приведен код, решающий все четыре задачи:

pascalCopy code
program ArrayOperations;

const
  N = 10; // Задайте здесь размерность массива

var
  arr: array[1..N] of integer;
  i, product: integer;
  countInRange: integer;
  zeroIndexes: string;

begin
  // Ввод массива
  writeln('Введите элементы массива:');
  for i := 1 to N do
    readln(arr[i]);

  // Вывод массива в строку
  writeln('Массив:');
  for i := 1 to N do
    write(arr[i], ' ');
  writeln;

  // Вывод массива в столбец
  writeln('Массив в столбце:');
  for i := 1 to N do
    writeln(arr[i]);

  // Находим произведение ненулевых элементов
  product := 1;
  for i := 1 to N do
    if arr[i] <> 0 then
      product := product * arr[i];
  writeln('Произведение ненулевых элементов: ', product);

  // Находим количество элементов в пределах от -5 до 5 включительно
  countInRange := 0;
  for i := 1 to N do
    if (arr[i] >= -5) and (arr[i] <= 5) then
      Inc(countInRange);
  writeln('Количество элементов в пределах от -5 до 5: ', countInRange);

  // Находим индексы нулевых элементов
  zeroIndexes := '';
  for i := 1 to N do
    if arr[i] = 0 then
      zeroIndexes := zeroIndexes + ' ' + IntToStr(i);
  writeln('Нулевые элементы массива находятся на', zeroIndexes, ' местах.');
end.

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