Question

(65 баллов) (Pascal) Заполнить двумерный массив N[5,7] случайными числами из диапазона от -5 до 5. Вывести матрицу на экран в прямоугольном виде. Найти минимальный элемент в каждом столбце матрицы. Вывести эти значения в отдельной строке.

Answer 1

Ответ:

Var i, j, min:Integer ;

N:array [1..10,1..10]of Integer ;

Begin

For i:=1 to 5 do begin

For j:=1 to 7 do begin

N[i, j]:=random(11)-5;

Write(' ', N[i, j]) ;

End;writeln ;end;

Min:=6;writeln;

For j:=1 to 7 do begin

For i:=1 to 5 do begin

If(n[i,j]<min) then min:=n[i, j] ;

End;write(' ', min) ;min:=6;end;

End.

Answer 2

Ответ:

var n:array [1..5,1..7] of integer;

i,j,m:integer;

begin

writeln('Массив: ');

for i:=1 to 5 do

begin

for j:=1 to 7 do

begin

n[i,j]:=random(11)-5;

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

end;

writeln

end;

writeln;

for j:=1 to 7 do

begin

m:=6;

for i:=1 to 5 do if n[i,j]<m then m:=n[i,j];

write(m:4);

end

end.

Answer 3

Вот решение задачи на языке Pascal:

pascalCopy code
program TwoDimensionalArray;

var
  N: array[1..5, 1..7] of Integer;
  i, j, minElement: Integer;

begin
  // Задаем генератор случайных чисел
  Randomize;

  // Заполняем массив случайными числами
  for i := 1 to 5 do
  begin
    for j := 1 to 7 do
    begin
      N[i, j] := Random(11) - 5; // Генерируем число от -5 до 5
    end;
  end;

  // Выводим матрицу на экран
  for i := 1 to 5 do
  begin
    for j := 1 to 7 do
    begin
      Write(N[i, j]:4);
    end;
    Writeln;
  end;

  // Находим минимальный элемент в каждом столбце
  Writeln('Минимальные элементы в каждом столбце:');
  for j := 1 to 7 do
  begin
    minElement := N[1, j];
    for i := 2 to 5 do
    begin
      if N[i, j] < minElement then
        minElement := N[i, j];
    end;
    Write(minElement:4);
  end;
end.

Программа создает двумерный массив N[5,7] и заполняет его случайными числами в диапазоне от -5 до 5. Затем матрица выводится на экран в прямоугольном виде. Далее программа находит минимальный элемент в каждом столбце и выводит эти значения в отдельной строке.