Дана прямоугольная матрица…

uses crt; var a: array[1… 99,1… 99] of integer; m,n,s,i,j: integer; beginwrite ('Введите m и n: '); readln (m,n); writeln ('Исходная матрица: '); for i: =1 to m do begin for j: =1 to n do begin a[i,j]: =random (10- (-10)+1) -10; write (a[i,j]: 3); end; writeln; end; s: =0; for i: =1 to m do begin for j: =1 to n do begin if a[i,j]<0 then s: =s+1; end; if s=2 then begin writeln ('Строка с двумя отрицательными элементами есть'); halt; end; {если нужная строка найдена, программа выдает надпись о ее нахождении и немедленно завершается} s: =0; end; writeln ('Строки с двумя отрицательными элементами нет'); end.