Question

Задача в Pascal ABC: Случайным образом задать двумерный массив из 5 строк и 8 столбцов. Диапазон от 11 до 30. Вывести его на экран. Найти максимальный элемент массива. Найти минимальный элемент массива. Вывести на экран их сумму.

Answer 1

Ответ:

Можно так. Не спрашивайте, зачем такие сложные конструкции.

const M = 5;

const N = 8;

var A: array [1..M,1..N] of integer;

var i,j,max,min: integer;

begin

max:=11;

min:=11;

randomize();

For i:= 1 to M do

begin

 For j:= 1 to N do

 begin

 A[i,j]:=random(20)+11;

 if (A[i,j]<A[min div 10,min mod 10]) then min:=i*10+j;

 if (A[i,j]>A[max div 10,max mod 10]) then max:=i*10+j;

 write(A[i,j]:4);

 end;

 writeln();

end;

writeln('Максимальный элемент массива: ',A[max div 10,max mod 10]);

writeln('Минимальный элемент массива: ',A[min div 10,min mod 10]);

writeln('Их сумма: ',A[max div 10,max mod 10]+A[min div 10,min mod 10]);

end.

Answer 2

Приведенный ниже код на языке Pascal решает задачу, где случайным образом задается двумерный массив из 5 строк и 8 столбцов в диапазоне от 11 до 30. Затем код выводит его на экран, находит максимальный и минимальный элементы массива и выводит их сумму.

program FindMinMax;

const
  ROWS = 5;
  COLS = 8;

var
  arr: array[1..ROWS, 1..COLS] of Integer;
  i, j, maxElem, minElem, sum: Integer;

begin
  // Заполняем массив случайными числами в диапазоне от 11 до 30
  Randomize;
  for i := 1 to ROWS do
  begin
    for j := 1 to COLS do
    begin
      arr[i, j] := Random(20) + 11;
    end;
  end;
  
  // Выводим массив на экран
  writeln('Массив:');
  for i := 1 to ROWS do
  begin
    for j := 1 to COLS do
    begin
      write(arr[i, j]:3, ' ');
    end;
    writeln;
  end;
  
  // Находим максимальный и минимальный элементы массива
  maxElem := arr[1, 1];
  minElem := arr[1, 1];
  for i := 1 to ROWS do
  begin
    for j := 1 to COLS do
    begin
      if arr[i, j] > maxElem then
        maxElem := arr[i, j];
      if arr[i, j] < minElem then
        minElem := arr[i, j];
    end;
  end;
  
  // Выводим максимальный элемент, минимальный элемент и их сумму на экран
  writeln('Максимальный элемент: ', maxElem);
  writeln('Минимальный элемент: ', minElem);
  sum := maxElem + minElem;
  writeln('Сумма: ', sum);
end.

Этот код сначала создает двумерный массив `arr`, где `arr[i, j]` представляет элемент на пересечении строки `i` и столбца `j`. Элементы массива заполняются случайными числами в диапазоне от 11 до 30 с помощью функции `Random`. Затем массив выводится на экран с помощью вложенных циклов `for`.

Далее с помощью двух вложенных циклов `for` находим максимальный и минимальный элементы массива `arr`. Если текущий элемент больше максимального элемента, то он становится новым максимальным элементом. Если текущий элемент меньше минимального элемента, то он становится новым минимальным элементом.

В конце программы выводим найденные максимальный и минимальный элементы, а также их сумму на экран с помощью процедуры `writeln`.