Question

РЕБЯТА СРОЧНО(ЗАДАЛИ ПО ИНФОРМАТИКЕ НЕЗНАЮ КАК ДЕЛАТЬ)Дано двухмерный массив целых чисел размерностью n xm. Разработайте алгоритм и программу определения минимального числа в каждой строке и создания из них одномерного массива. Сформулируйте самостоятельно условие задачи, С какой вы встречались в жизне или можете встретиться и яку можно формализовать в сформулированной форме(В программе ЛАЗАРУС)

Answer 1

Ответ:

pascal

Объяснение:

const

 n=5;

 m=6;

var

 a : array [0..n, 0..m] of integer;

 b : array [0..m] of integer;

 i, j, min : integer;

begin

 randomize;

 for j:=0 to m-1 do begin

   for i:=0 to n-1 do begin

     a[i,j] := random(100);

     write(a[i, j], '  ');

   end;

   writeln();

 end;

 for j:=0 to m-1 do begin

   min := 100;

   for i:=0 to n-1 do

     if a[i,j] < min then min := a[i,j];

   b[j] := min;

 end;

 writeln('--------------------');

 for j := 0 to m-1 do

   write(b[j], '  ')

end.

Answer 2

Конечно, я помогу вам с этой задачей. Вот формулировка задачи:

Задача: Дан двумерный массив целых чисел размерности n x m. Необходимо разработать алгоритм и программу для определения минимального числа в каждой строке и создания из них одномерного массива.

Алгоритм:

1. Создайте двумерный массив размерности n x m и заполните его значениями.
2. Для каждой строки массива найдите минимальный элемент.
3. Запишите минимальные элементы в одномерный массив.

Вот пример кода на Pascal (Lazarus):

pascalCopy code
program FindMinInRows;

const
  MAX_SIZE = 100; // Максимальный размер массива

var
  arr: array[1..MAX_SIZE, 1..MAX_SIZE] of integer;
  minArr: array[1..MAX_SIZE] of integer;
  n, m, i, j: integer;

begin
  // Ввод размерности массива
  writeln('Введите размерность массива (n и m): ');
  readln(n, m);

  // Ввод элементов массива
  writeln('Введите элементы массива:');
  for i := 1 to n do
    for j := 1 to m do
      read(arr[i, j]);

  // Инициализация minArr нулями
  for i := 1 to n do
    minArr[i] := MaxInt;

  // Поиск минимальных элементов в каждой строке
  for i := 1 to n do
    for j := 1 to m do
      if arr[i, j] < minArr[i] then
        minArr[i] := arr[i, j];

  // Вывод минимальных элементов
  writeln('Минимальные элементы в каждой строке:');
  for i := 1 to n do
    writeln(minArr[i]);
end.

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

Надеюсь, этот пример поможет вам решить задачу. Если у вас есть какие-то дополнительные вопросы, пожалуйста, дайте знать!