Дан двумерный квадратный массив. найти номера строк, все элементы которых равны нулю.

249

326

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

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

moakoroleva

Информатика

4,6(29 оценок)

uses crt; var a : array [ 1.. 20 , 1.. 20 ] of real; i , j , k , n , s : integer; begin clrscr; write ( 'введите размер матрицы: ' ); read (n ); for i : = 1 to n do for j : = 1 to n do begin write ( 'a[' , i , ',' , j , ']= ' ); readln (a [i , j ] ); end; writeln; writeln; writeln ( 'исходная матрица ' , n , 'x' , n , ': ' ); for i : = 1 to n do begin for j : = 1 to n do write (a [i , j ] : 2 : 0 , ' ' ); writeln; end; k : = 0; for i : = 1 to n do begin for j : = 1 to n do begin if a [i , j ] = 0 then begin k : = k + 1; s : = s + 1; end; end; if k = n then writeln (i , ' строка состоит из нулей! ' ); k : = 0; end; if s = 0 then writeln ( 'в матрице нет нулевых строк' ); end.

NAstiu1

Информатика

4,8(46 оценок)

var a: array[1..1000,1..1000] of integer; zero,zero1,j,i,n: integer; beginwriteln('vvedite razmernost massiva nxn'); readln(n); for i: = 1 to n dobeginfor j: = 1 to n do beginwrite('a[',i,',',j,']: ='); read(a[i,j]); end; end; zero : = 0; for i : = 1 to n do begin for j : = 1 to n do begin if a[i, j] = 0 then begin zero : = zero + 1; zero1 : = zero1 + 1; end; end; if zero = n then writeln(i, ' stroka sostoit iz nulei '); zero : = 0; end; if zero1 = 0 then writeln('net nulevix strok'); end.

ададсжсжэвжю

Информатика

4,4(20 оценок)

Общие свойства объекта ,оригинала и модели: 1) планета земля и глобус - шарообразность, соответствие расположения материков и океанов земли 2) ребенок и кукла - строение (соответствие частей тела) 3) местность и карта местности - соответствие расположения объектов

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.