Pabc. Дана матрица A(5,6). Составить массив, содержащий минимальные элементы каждой...

Question

Pabc. Дана матрица A(5,6). Составить массив, содержащий минимальные элементы каждой строки.

Answer 1

Const m=5; n=6;
var 
a:array[1..m,1..n] of integer;
b:array[1..m] of integer;
i,j,min:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to m do
 begin
 for j:=1 to n do
  begin
  a[i,j]:=random(50);
  write(a[i,j]:4);
  end;
  writeln;
 end;
for i:=1 to m do
 begin
 min:=a[i,1];
 for j:=2 to n do
  if a[i,j] b[i]:=min;
 end;
writeln('Полученный массив:');
for i:=1 to m do write(b[i]:4);
writeln; 
end.

Пример:
Исходный массив:
  44  30  35  16  47   3
  30  15  23  40  15  46
  46  11   2   3  16  40
  19  17   8  22  10  25
  41  23   9  47   7  36
Полученный массив:
   3  15   2   8   7

Answer 2

Var a: array [1..5, 1..6] of real;
      b: array [1..5] of real;
      i, j: integer;
begin for i:=1 to 5 do
          begin read(a[i,1]);
                    b[i]:=a[i,1];
                   for j:=2 to 6 do
                    begin read(a[i,j]);   {ввод элементов массива в цикле с параметром}
                              if (b[i]>a[i,j]) then b[i]:=a[i,j];
                    end;
                    writeln;    {для перехода на новую строку}
          end;
          for i:=1 to 5 do
          write(b[i], ' ');
readln;
end.