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

 

  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.

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.

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