Const n=10; var i,j,k,m,buf:integer; a:array[1..n,1..n]of integer; begin for i:=1 to n do begin writeln; for m:=1 to n do begin a[i,m]:=random(20); write(a[i,m]:4); end; end; writeln; writeln('k,j ?'); readln(k,j); for m:=1 to n do begin buf:=a[k,m]; a[k,m]:=a[j,m]; a[j,m]:=buf; end; for i:=1 to n do begin writeln; for m:=1 to n do write(a[i,m]:4); end; end.
1 байт * 48000 =48000 байт
2. Длительностью 5 мин:
5*60*48000=14400000 байт ≈13.7 Мбайт