Question

7.5 плиз помогите решить))))))))))))

Answer 1

 const nx = 30; mx = 30; var i,j,m,n,k,qi,qj:integer; D:array[1..nx,1..mx] of real; min:real;  begin min:= 30.0; writeln('Введите n и m'); Readln(n,m); for i:= 1 to n do begin for j:= 1 to m do begin D[i,j] := random()*20 -10; write(D[i,j]:6:2); if D[i,j]< 0 then k:= k + 1; if min > D[i,j] then begin min := D[i,j];qi:=i;qj:=j; end; end;  writeln; end; Writeln('минимальный элемент матрицы ',min); Writeln('номер строки ',qi);  Writeln('номер столбца',qj);    Writeln('количество отрицательных элементов матрицы',k); end.