пройти тест, чтобы получить сертификат. Очень важно. Заранее благодарен за ответ. Сами во на фотках (в виде текста система не позволила задать во пройти тест, чтобы получить сертификат. Очень важно. Заранее благодарен за ответ. Сами в пройти тест, чтобы получить сертификат. Очень важно. Заранее благодарен за ответ. Сами в">

 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.

Uses crt;
const N=3;M=3;
      L=9;
var a:array [1..N,1..M] of real;
    b:array [1..L] of real;
    i,j,x,k:integer;
begin
     x:=1;
     for i:=1 to N do
         for j:=1 to M do
         begin
              read(a[i,j]);
              if a[i,j]>0 then
              begin
                   b[x]:=a[i,j];
                   x:=x+1;
              end;
         end;
     clrscr;
     for i:=1 to N do
         begin
         for j:=1 to M do
             write(a[i,j]:3:0);
         writeln;
         end;
     writeln;
     for k:=1 to x-1 do
         write(b[k],' ');
end.