Добавлено (24.11.2008, 00:57)
---------------------------------------------
вот 1 с транспонацией:
program TPAHC
uses crt;
type ctpoka=array [1..100] of integer;
ta6=array [1..100] of ctpoka;
var
a,b: ta6;
i,j,n,m:integer;
begin
writeln('BBEDUTE 4UCLO CTPOK'); readln(n);
writeln('BBEDUTE 4UCLO CTOL6II,OB'); readln(m);
writeln('BOT BAIIIA MATPUII,A');
RANDOMIZE;
for i:= 1 to n do
begin
for j:= 1 to m do
begin a[i,j] := random(20); write(a[i,j]:3,' '); b[j,i]:=a[i,j]; end;
writeln;
end;
writeln(PE3yLbTAT TPAHCIIOHUPOBAHU9');
for i:= 1 to n do
begin
for j:= 1 to m do
begin write(b[i,j]:3,' '); end;
writeln;
end;
readkey;
end.