Элементы заданной матрицы A(N,N) переписывать построчно в одномерный массив до тех пор, пока не встретится нулевой элемент

code: #pascal
uses crt; 
var 
  a:array[1..100,1..100] of integer; 
  c:array[1..10000] of integer; 
  n,i,j,f,g:integer; 
begin 
 
read(n); 
 
for i:=1 to n do 
begin 
  for j:=1 to n do 
  begin 
   read(a[i,j]); 
  end; 
end; 
 
f:=1; 
g:=0; 
 
for i:=1 to n do 
begin 
  for j:=1 to n do 
  begin 
   if (a[i,j] <> 0) then 
   begin 
    c[f]:=a[i,j]; 
    f:=f+1; 
    g:=g+1; 
   end 
   else 
   if (a[i,j] = 0) then 
   begin 
    for f:=1 to g do 
    begin 
     write(c[f],' '); 
    end; 
    exit; 
   end; 
  end; 
end; 
 
readln;readln; 
end. 

автор: DUMMY

Поделиться:

Похожие статьи: