Ввести положительные и отрицательные элементы квадратной матрицы и перезаписать все положительные элементы в одномерный массив. Вывести одномерный массив.

const nx = 20;

var x: array[1 ... nx, 1 ... nx] of integer; z:array[1 ... nx*2] of integer;

i, j, k, n, r, t: integer;

begin

Writeln ('Введите размер матрицы n') ; Read (n) ;

for i : = 1 to n do begin

for j : = 1 to n do begin

Read (k) ; x[i, j] : = k; end; end;

Writeln ('Исходный массив') ;

for i : = 1 to n do begin

for j : = 1 to n do begin

Write (x[i, j]:4) ;

if x[i, j]>0 then begin t:=t+1; z[t]:=x[i, j]; end;

end;

Writeln; end;

Writeln; Writeln ('Одномерный массив') ;

for j : = 1 to t do

Write (z[j]:4) ;

end.