// PascalABC.NET 3.2, сборка 1415 от 25.03.2017 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('Количество строк в массиве:'); var m:=ReadInteger('Количество столбцов в массиве:'); Writeln('*** Исходный массив [',n,',',m,'] ***'); var a:=new real[n,m]; for var i:=0 to n-1 do for var j:=0 to m-1 do a[i,j]:=Random(5,90); a.Println(3,0); Writeln; var p:=a.ElementsByRow.Min; for var i:=0 to n-1 do for var j:=0 to m-1 do a[i,j]:=a[i,j]/p; a.Println(7,3) end.
Пример Количество строк в массиве: 4 Количество столбцов в массиве: 7 *** Исходный массив [4,7] *** 83 87 11 18 74 78 24 45 28 59 56 14 67 5 74 65 48 79 68 45 37 52 70 16 82 5 51 70
Const n=3; m=4; var a:array[1..n,1..m] of real; i,j:integer; min:real; begin Randomize; writeln('Исходная матрица:'); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=10*random-5; write(a[i,j]:6:2); end; writeln; end; min:=abs(a[i,j]); for i:=1 to n do for j:=1 to m do if abs(a[i,j])<min then min:=abs(a[i,j]); for i:=1 to n do for j:=1 to m do a[i,j]:=a[i,j]/min; writeln('min = ',min:6:2); writeln('Измененная матрица:'); for i:=1 to n do begin for j:=1 to m do write(a[i,j]:6:2); writeln; end; end.
Получится: $G$3 + E8