Элементы заданной матрицы A(N,N) переписывать построчно в одномерный массив до тех пор, пока не встретится нулевой элемент
Категория: Delphi/Pascal
2012-01-03 22:18:52
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
Поделиться: