Народ, выручайте. с информатикой туго. написать программу вычисляющую функцию s, значение которой равно единице, если в каждой строке матрицы есть нулевой элемент, и нулю в противном случае. значение функции вычисляется для матриц а(3,4), в(3,3). элементы матриц ввести с подпрограммы процедуры

218

405

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

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

sadlyuda

Информатика

4,5(50 оценок)

// pascalabc.net 3.0, сборка 1128 procedure matinput(m: array[,] of integer); begin var nr: =length(m,0); var nc: =length(m,1); writelnformat('введите построчно массив размером {0}x{1}',nr,nc); for var i: =0 to nr-1 do for var j: =0 to nc-1 do read(m[i,j]); end; function s(m: array[,] of integer): integer; begin result: =0; var zero: integer; for var i: =0 to length(m,0)-1 do begin zero: =1; for var j: =0 to length(m,1)-1 do if m[i,j]=0 then begin zero: =0; break end; result+=zero; if result=1 then begin result: =0; exit end end; result: =1 end; begin var a: =new integer[3,4]; matinput(a); var b: =new integer[3,3]; matinput(b); writeln(s(a)); writeln(s(b)); end. тестовое решение: введите построчно массив размером 3x4 1 2 3 4 5 6 7 8 9 0 1 2 введите построчно массив размером 3x3 1 2 0 2 0 1 0 1 0 0 1

nikita112289

Информатика

4,5(74 оценок)

Вообще ада назван в честь первого программиста ады лавлейс (женщина). именно она написала первую программу в для аналитической машины беббиджа. большую информацию можно просто найти в поисковике.