const min=2;
       max=10;
Type matrix = Array [1..max,
1..max] Of real;
Type vector = Array [1..max]
Of real;
   
Procedure input_matrix (Var
m: matrix; Var n, k: integer);
Var a, b, p1, p2, i, j:
Integer;
Begin
repeat
Write
('Введите количество строк от ',min,' до ',max,' n = ');
ReadLN (n);
until n in [min..max];
repeat
Write
('Введите количество столбцов от ',min,' до ',max,' k = ');
ReadLN (k);
until k in [min..max];
repeat
Writeln('Введите
границы диапазона значений компонент матрицы a<b');
ReadLN (a,b);
until a<b;
Randomize;
For i:=1 To n Do
  begin
   For j:=1 To k Do
    begin
     m[i,j]:=a+(b-a)*random;
    end;
  End;
end;
   
Procedure show_array (v:
vector; n: integer);
var
i:integer;
begin
for i:=1 to n do
   write(v[i]:5:1);
writeln;
end;
   
Procedure show_matrix (Var
m: matrix; n, k: integer);
var
i,j:integer;
   
begin
for i:=1 to n do
  begin
   for j:=1 to k do
    begin
     write(m[i,j]:5:1);
    end;
   writeLn;
  end;
end;
   
Procedure work1 (Var m:
matrix; n, k: integer;var v: vector);
var
i,j:integer;
   
begin
for i:=1 to n do
  begin
   v[i]:=0;
   for j:=1 to k do
    begin
     v[i]:=v[i]+m[i,j];
    end;
  end;
end;
   
Procedure work2 (Var m:
matrix; n, k: integer;v:vector);
var
i,j:integer;
begin
for i:=1 to n do
  begin
   for j:=1 to k do
    begin
     if v[i]>0 then m[i,j]:=1
     else if v[i]<0 then m[i,j]:=-1
     else m[i,j]:=0;
    end;
  end;
end;
   
Procedure work3 (v: vector;
n: integer);
var
i,imn:integer;
begin
imn:=1;
for i:=1 to n do
  begin
   if
v[i]<v[imn]-0.0001 then imn:=i;{//-0.0001 для сравнения вещественых чисел}
  end;
writeln('Минимальный
элемент массива V=',v[imn]:0:1,' индекс первого=',imn);
end;
   
var a:matrix;
     n,k: integer;
     v:vector;
begin
input_matrix(a,n,k);
writeln('Исходная матрица');
show_matrix(a,n,k);
work1(a,n,k,v);
writeln('Массив
сумм в строках');
show_array(v,n);
work2(a,n,k,v);
writeln('Измененная матрица');
show_matrix(a,n,k);
work3(v,n);
   
end.