Дана прямоугольная матрица mxn .определить есть в данном массиве строка в которой ровно два отрицательных элемента. решить через pascal

179

190

Посмотреть ответы 2

Ответы на вопрос:

galiamikhajlova

Информатика

4,7(65 оценок)

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()+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.