Question

ПОМОГИТЕ!!! СРОЧНО!!! ПАСКАЛЬ!!! Массив 5х5 заполнить случайными числами [0;2]. Посчитать количество максимальных элементов в массиве под побочной диагональю.

Answer 1

begin

 var a := MatrRandom(5, 5, 0, 2);

 a.Println;

 var Max := integer.MinValue;

 var Count := 0;

 for var i := 0 to 4 do

   for var j := 0 to 4 do

     if i + j > 4 then

     begin

       if Max < a[i, j] then

       begin

         Max := a[i, j];

         Count := 1

       end

       else

       if Max = a[i,j] then

         Count += 1

     end;

 Write(Count)

end.

Answer 2

Хорошо, я помогу вам решить эту задачу на языке программирования Паскаль. Для подсчета количества максимальных элементов под побочной диагональю в массиве 5x5, заполненном случайными числами от 0 до 2, выполните следующие шаги:

1. Создайте двумерный массив 5x5 и заполните его случайными числами от 0 до 2.
2. Найдите побочную диагональ (диагональ, идущую от правого верхнего угла до левого нижнего угла) и подсчитайте количество максимальных элементов, расположенных ниже этой диагонали.

Приведу пример кода на языке Паскаль (Free Pascal) для решения данной задачи:

pascalCopy code
program CountMaxElements;

const
  N = 5;

type
  TArray = array[1..N, 1..N] of Integer;

procedure FillRandomArray(var arr: TArray);
var
  i, j: Integer;
begin
  Randomize;
  for i := 1 to N do
    for j := 1 to N do
      arr[i, j] := Random(3); // Заполняем случайными числами от 0 до 2
end;

function CountMaxElementsBelowDiagonal(arr: TArray): Integer;
var
  i, j, maxElement: Integer;
begin
  maxElement := -1; // Начальное значение максимального элемента
  for i := 1 to N do
    for j := N - i + 2 to N do
      if arr[i, j] > maxElement then
        maxElement := arr[i, j];

  // Теперь подсчитываем количество максимальных элементов под побочной диагональю
  Result := 0;
  for i := 1 to N do
    for j := N - i + 2 to N do
      if arr[i, j] = maxElement then
        Inc(Result);
end;

var
  matrix: TArray;
  maxElementsCount: Integer;
begin
  FillRandomArray(matrix);

  // Выводим исходный массив для наглядности
  writeln('Исходный массив:');
  for var i := 1 to N do
  begin
    for var j := 1 to N do
      write(matrix[i, j], ' ');
    writeln;
  end;

  maxElementsCount := CountMaxElementsBelowDiagonal(matrix);
  writeln('Количество максимальных элементов под побочной диагональю: ', maxElementsCount);
end.

Поместите этот код в среду программирования Pascal и запустите его. Он сначала заполнит массив случайными числами от 0 до 2, затем посчитает количество максимальных элементов, расположенных под побочной диагональю, и выведет их на экран.