Информационный вес символа при алфавитном подходе считается, что каждый символ текста имеет определенный информационный вес, информационный вес символа зависит от мощности алфавита. а каким может быть наименьшее число символов в алфавите? оно равно двум! скоро вы узнаете, что такой алфавит используется в компьютере. он содержит всего 2 символа, которые обозначаются цифрами «0» и «1». его называют двоичным алфавитом. изучая устройство и работу компьютера, вы узнаете, как с всего двух символов можно представить любую информацию. информационный вес символа двоичного алфавита принят за единицу информации и называется 1 бит.
Const NN=50; Var a:array [1..NN,1..NN] of integer; maxi,maxj,mini,minj,i,j,n,m:integer; begin writeln('Введите кол-во строк и столбцов массива: '); readln(n,m); for i:= 1 to n do for j:= 1 to m do begin write('a[',i,',',j,']= '); readln(a[i,j]); end; writeln; writeln('Получившийся массив: '); for i:= 1 to n do begin for j:= 1 to m do write(a[i,j]:4); writeln; end; maxi:=1; maxj:=1; mini:=1; minj:=1; for i:= 1 to n do for j:= 1 to m do begin if a[i,j]>a[maxi,maxj] then begin maxi:=i; maxj:=j; end else if a[i,j]<a[mini,minj] then begin mini:=i; minj:=j; end; end; writeln; writeln('Получившийся массив: '); i:=a[maxi,maxj]; a[maxi,maxj]:=a[mini,minj]; a[mini,minj]:=i; for i:= 1 to n do begin for j:= 1 to m do write(a[i,j]:4); writeln; end; end.
