Question

Дан двумерный массив размерностью 8х12, инициализированный целочисленными значениями из диапазона от -20 до +80. Написать программу, которая ищет минимальный четный элемент этого массива и выводит на экран его значение и его координаты. 100 БАЛЛОВ СРОЧНО ПОЖАЛУЙСТАсделать в паскале

Answer 1

Ответ:

pascal

Объяснение:

var

 min: integer;

 i, j, k, l: integer;

 a: array[1..8,1..12] of integer;

begin

 min := 81;

 for i := 1 to 8 do begin

   for j := 1 to 12 do

     begin

      a[i, j] := random(101) - 20;

      Write(a[i, j]:4);

      if (a[i, j] < min) and (a[i, j] mod 2 = 0) then

      begin

        min := a[i, j];

        k := i;

        l := j;

      end;

     end;

   WriteLn;

  end;

  WriteLn('Минимальный четный элемент - A[',k,',',l,']=',min);

end.

Answer 2

Конечно, вот программа на Pascal, которая решает задачу:

pascalCopy code
program FindMinEvenElement;

const
  Rows = 8;
  Cols = 12;

var
  arr: array[1..Rows, 1..Cols] of Integer;
  minEvenValue: Integer;
  minEvenRow, minEvenCol: Integer;
  i, j: Integer;

begin
  { Инициализация генератора случайных чисел }
  Randomize;

  { Заполнение массива случайными значениями }
  for i := 1 to Rows do
    for j := 1 to Cols do
      arr[i, j] := Random(101) - 20;  // Генерируем числа от -20 до 80

  minEvenValue := 101;  // Инициализируем переменную большим значением, чтобы гарантировано найти меньшее значение
  
  { Поиск минимального четного значения }
  for i := 1 to Rows do
    for j := 1 to Cols do
      if (arr[i, j] mod 2 = 0) and (arr[i, j] < minEvenValue) then
      begin
        minEvenValue := arr[i, j];
        minEvenRow := i;
        minEvenCol := j;
      end;

  { Вывод результата }
  Writeln('Минимальный четный элемент: ', minEvenValue);
  Writeln('Координаты: Строка ', minEvenRow, ', Столбец ', minEvenCol);
end.

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