Question

Написать Программ подсчета количества всех четных элементов пятой строки двумерного массива и произведения чисел, кратных пяти в третьем столбце этого массива, размером 7х9. ПАСКАЛЬ

Answer 1

===== PascalABC.NET =====

begin

 var a := MatrRandom(7, 9, 1, 20);

 a.Println(3);

 a.Row(4).Count(p -> p.IsEven).Println; // кол-во

 a.Col(2).Where(p -> p mod 5 = 0).Product.Println // произв.

end.

Answer 2

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

pascalCopy code
program CountAndMultiply;
var
  arr: array[1..7, 1..9] of integer;
  i, j, evenCount, product: integer;
begin
  // Заполнение массива случайными значениями
  randomize;
  for i := 1 to 7 do
    for j := 1 to 9 do
      arr[i, j] := random(101); // случайные числа от 0 до 100

  // Вывод исходного массива
  writeln('Исходный массив:');
  for i := 1 to 7 do
  begin
    for j := 1 to 9 do
      write(arr[i, j]:4);
    writeln;
  end;

  // Инициализация счетчика четных элементов и произведения
  evenCount := 0;
  product := 1;

  // Подсчет четных элементов пятой строки и вычисление произведения кратных 5 в третьем столбце
  for j := 1 to 9 do
  begin
    if arr[5, j] mod 2 = 0 then
      evenCount := evenCount + 1;

    if arr[j, 3] mod 5 = 0 then
      product := product * arr[j, 3];
  end;

  // Вывод результата
  writeln('Количество четных элементов в пятой строке: ', evenCount);
  writeln('Произведение чисел, кратных 5, в третьем столбце: ', product);

  readln;
end.

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