Будем считать, что нужен запрос
Select a.moviename,a.country, a.time, a.date from film as a where (a.date>01/01/1997 and a.county not like "USA") or a.country="France"
Const n=6; m=4;
var
a:array[1..n,1..m] of integer;
i,j,c:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(50);
write(a[i,j]:4);
end;
writeln;
end;
for j:=1 to m do
begin
c:=a[3,j]; a[3,j]:=a[5,j]; a[5,j]:=c;
end;
writeln('Полученный массив:');
for i:=1 to n do
begin
for j:=1 to m do write(a[i,j]:4);
writeln;
end;
end.
Пример:
Исходный массив:
25 4 33 17
19 23 42 9
36 40 1 48
21 44 13 18
38 29 8 7
24 13 5 13
Полученный массив:
25 4 33 17
19 23 42 9
38 29 8 7
21 44 13 18
36 40 1 48
24 13 5 13
V=i*pix. N=256, значит i=8( N=2 в степени I). V=8*786432=6291456 бит=786432 байт=768 кб
Если 4800 бод это 4800 бит/с, то
4800*20=96000 бит будет передано за 20 с
96000/8=12000 символо нужно передать (т.к. КОИ-8 8-ми битная кодировка)
12000/1500=8 страниц