Написать программу на паскале. в целочисленной матрице размером 10x10 найдите максимальное значение и индексы всех элементов, равных ему.

Var ar: array[1..10,1..10] of integer; i,j,max,count: integer; begin count: =1; max: =0; randomize; for i: =1 to 10 do begin for j: =1 to 10 do begin ar[i,j]: =random(10)+1; if (j mod 10=0) then writeln(ar[i,j]) else write(ar[i,j],' '); if (ar[i,j] > max) then max: =ar[i,j]; end; end; for i: =1 to 10 do begin for i: =1 to 10 do begin for j: =1 to 10 do begin if (ar[i,j] = max) then begin writeln('индекс ',count,' элемента = ',i,' ',j); inc(count); end; end; end; end.

1) var       a, b, i: longint; begin       read(a, b);       for i : = a to b do               writeln(i: 10, ' бит = ', i / 8 / 1024: 10: 5, ' кб'); end. 3) var       a, b, s: real;       i: integer; begin       read(a, b);       for i : = 1 to 10 do       begin               s : = s + b;               b : = b * 1.03;       end;       writeln(s - 10 * a); end.

Единицы измерения информации служат для измерения различных характеристик, связанных с информацией. Чаще всего измерение информации касается измерения ёмкости компьютерной памяти и измерения количества данных, передаваемых по цифровым каналам связи. Реже измеряется количество информации.

Вопрос: «Как измерить информацию?» очень непростой. ответ на него зависит от того, что понимать под информацией. Но поскольку определять информацию можно по-разному, то и измерения тоже могут быть разными.Получение новой информации приводит к расширению знаний. Если некоторое сообщение приводит к уменьшению неопределенности нашего знания, то можно говорить, что такое сообщение содержит информацию.

Отсюда следует вывод, что сообщение информативно (т.е. содержит ненулевую информацию), если оно пополняет знания человека. Например, прогноз погоды на завтра — информативное сообщение, а сообщение о вчерашней погоде неинформативно, т.к. нам это уже известно.