Question

Написать программу на паскаль: Найти произведение наибольших элементов двумерного массива, первый элемент которого отрицателен. 

Answer 1

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

program ProductOfMaxElements;
var
  i, j, n, m: integer; // Переменные для размеров и индексов массива
  a: array [1..10, 1..10] of integer; // Переменная для хранения массива
  max: array [1..10] of integer; // Переменная для хранения максимальных элементов в каждой строке
  product: integer; // Переменная для хранения произведения максимальных элементов
begin
  randomize; // Инициализация генератора случайных чисел
  writeln('Введите размеры массива (не больше 10):');
  readln(n, m); // Ввод размеров массива
  writeln('Исходный массив:');
  for i := 1 to n do
  begin
    max[i] := -MaxInt; // Инициализация максимальных элементов минимальным значением
    for j := 1 to m do
    begin
      a[i, j] := random(-10, 10); // Заполнение массива случайными числами от -10 до 10
      if (i = 1) and (j = 1) then
        a[i, j] := random(-10, -1); // Установка первого элемента массива отрицательным
      write(a[i, j]:4); // Вывод элемента массива на экран
      if a[i, j] > max[i] then
        max[i] := a[i, j]; // Обновление максимального элемента в строке
    end;
    writeln;
  end;
  product := 1; // Инициализация произведения единицей
  for i := 1 to n do
  begin
    product := product * max[i]; // Умножение произведения на максимальный элемент в строке
  end;
  writeln('Произведение наибольших элементов массива равно ', product);
end.

Вы можете запустить эту программу в онлайн-компиляторе, например, [здесь](https://www.cyberforum.ru/pascalabc/thread2502201.html). Если вы хотите узнать больше о языке паскаль, вы можете посмотреть [этот](https://ru.stackoverflow.com/questions/1220891/%D0%9F%D0%BE%D0%B8%D1%81%D0%BA-%D1%8D%D0%BB%D0%B5%D0%BC%D0%B5%D0%BD%D1%82%D0%BE%D0%B2-%D0%B2-%D0%BC%D0%B0%D1%81%D1%81%D0%B8%D0%B2%D0%B5pascal) или [этот](https://online-otvet.ru/informatika/5cea74aa96f4e19a29fadb78) ресурс. Надеюсь, это было полезно для вас.

Answer 2

Вот пример программы на языке Pascal, которая находит произведение наибольших элементов двумерного массива, где первый элемент отрицателен:

```pascal program FindMaxProduct;

const N = 3; // Размерность массива

var arr: array[1..N, 1..N] of integer; i, j, maxProduct, firstNegative: integer;

begin // Инициализация массива arr[1, 1] := -2; arr[1, 2] := 5; arr[1, 3] :=