1. Мощность алфавита - 32 символа. На один символ требуется 5 бит.
2. Общее количество информации переданное за 3 минуты:
20*180=3600 байт = 28800 бит
3. Всего символов было передано:
28800/5 = 5760
const nx = 30; mx = 30; var i,j,m,n,k,qi,qj:integer; D:array[1..nx,1..mx] of real; min:real; begin min:= 30.0; writeln('Введите n и m'); Readln(n,m); for i:= 1 to n do begin for j:= 1 to m do begin D[i,j] := random()*20 -10; write(D[i,j]:6:2); if D[i,j]< 0 then k:= k + 1; if min > D[i,j] then begin min := D[i,j];qi:=i;qj:=j; end; end; writeln; end; Writeln('минимальный элемент матрицы ',min); Writeln('номер строки ',qi); Writeln('номер столбца',qj); Writeln('количество отрицательных элементов матрицы',k); end.
Миша - 5, музыка
Оля - 6, художка
Коля - 7, спорт
Используйте что-то типо map<char, size_t> m