主页 / 问题 / 1137849
Accepted
zacc
Asked:2020-06-08 00:42:42 +0000 UTC2020-06-08 00:42:42 +0000 UTC

告诉我如何在这个问题中找到哪些行和列中的最小值

  • 772
program programa;

var
  a: array[0..50, 0..50] of integer;
  i, j, n, m, min: integer;

begin
  writeln('Программа для определения индексов минимального элемента заданного массива');
  Randomize;
  write('Введите количество строк ');
  readln(n);
  write('Введите количество столбов ');
  readln(m);
  for i := 1 to n do
  begin
    writeln;
    for j := 1 to m do
    begin
      a[i, j] := random(51);
      write(a[i, j]: 5);
    end;
  end;
  writeln;
  min := a[1, 1];
  for i := 1 to m do
    for j := 1 to n do
      if a[i, j] < min then
        min := a[i, j];
  writeln('минимальный элемент массива =', min);
end.
массивы

1 个回答

  1. Best Answer

    在寻找最小值的块中，您需要记住列和列

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

      col := i;
      row := j; 
    end;

    您不需要向索引添加任何内容，因为您使用1初始化了数组。

      for i := 1 to n do
  ...
    for j := 1 to m do

    最好将数组描述更改为

      a: array[1..50, 1..50] of integer;
    • 1

相关问题