Срешением №5.в корзине 64 шара. сколько информации несёт сообщение о том, что достали чёрный шар? №6 алфавит состоит из 64 букв, какое количество информации несет в себе одна буква такого алфавита? заранее

6бит( 2 в 6 степени =64) №6 6 бит

1. var mas: array[0..10] of integer ; i,min,j: integer; begin min: =0; writeln('введите числа: '); for i : = 1 to 10 do begin readln(mas[i]); if (mas[i] < 0) then j: =mas[i]; if j then min: =j; end; writeln('минимальное отрицательное число: ',min); end. 2. var mas: array [0..10] of integer; i, max, j: integer; begin writeln('введите числа: '); for i : = 1 to 10 do begin readln(mas[i]); if abs(mas[i - 1]) < abs(mas[i]) then max : = mas[i] ; end; writeln('наибольшее по модулю число: ', max); end.

Program p1; uses crt; const n = 5;           m = 3; var x: array [1..n,1..m] of integer; j,i,z,k: integer; begin read(z); for i: =1 to n do begin   for j: =1 to m do begin     x[i,j]: = random (5)-2;   write(x[i,j]: 4);   end;     writeln;   end;         for i: =1 to n do begin         k: =0;         for j: =1 to m do begin           if (x[i,j]> =0) and (x[i,j] = z)then               k: = k+1;                 end;                 writeln('кол-во повторений =',k,' в ',i,' строке');                 end;                 end.