задачи на массивы

Ответ от Gabdulhanov[гуру]
вот первый const m=20;var a:array [1..m,1..m] of real;b:array [1..m] of real;i,j,n:byte;beginrepeatWrite('N=');ReadLn(n);until n in [6..20];for i:=1 to n do beginb[i]:=Random(25);for j:=1 to n dobegina[i,j]:=Random(30);Write(a[i,j]:7:0);end; Writeln; end;for i:=1 to n dofor j:=n downto 6 do a[i,j+1]:=a[i,j];Writeln;for i:=1 to n do a[i,6]:=b[i];for i:=1 to n do begin for j:=1 to n+1 do Write(a[i,j]:7:0); Writeln; end;end.