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