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.
elivanova
15.01.2021
Существуют три основных способа поиска информации в интернет: 1. указание адреса страницы. 2. передвижение по гиперссылкам. 3. обращение к поисковой системе (поисковому серверу). способ 1: указание адреса страницы это самый быстрый способ поиска, но его можно использовать только в том случае, если точно известен адрес документа или сайта, где расположен документ. не стоит забывать возможность поиска по открытой в окне браузера web-странице (правка-найти на этой странице…). способ 2: передвижение по гиперссылкам это наименее удобный способ, так как с его можно искать документы, только близкие по смыслу текущему документу. способ 3: обращение к поисковой системе пользуясь гипертекстовыми ссылками, можно бесконечно долго путешествовать в информационном пространстве сети, переходя от одной web-страницы к другой, но если учесть, что в мире созданы многие миллионы web-страниц, то найти на них нужную информацию таким способом вряд ли удастся.
iskypka
15.01.2021
Винтернете пишешь определение и открываешь самый первый сайт и читаешь определение если не уверен зайди ещё на пару сайтов и убедись что всё верно например я ввожу слово в интернет щит определение и выходит определение
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Дана прямоугольная матрица mxn .определить есть в данном массиве строка в которой ровно два отрицательных элемента. решить через pascal
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.