Дана квадратная матрица, заполненная случайными числами указать индексы всех элементов, имеющих наибольшее значение.

Program gt; var a: array[1..100,1..100]of integer; n,i,max,,j: integer; begin read(n); for i: =1 to n do for j: =1 to n do a[i,j]: =random(100)-50; max: =a[1,1]; for i: =1 to n do begin for j: =1 to n do begin if(a[i,j]> max)then max: =a[i,j]; end; end; for i: =1 to n do begin for j: =1 to n do begin if(a[i,j]=max)then writeln(i, ' ',j); end; end; end.

1. var   a, b, c, f: boolean;   i, j, k: integer; begin   for i : = 0 to 1 do       for j : = 0 to 1 do           for k : = 0 to 1 do           begin               a : = (i = 1); b : = (j = 1); c : = (k = 1);               f : = ((a and b) and c) = (a and (b and c));               writeln('a=', a, ', b=', b, ', c=', c, ', результат сравнения: ', f)           end end. результат выполнения программы: a=false, b=false, c=false, результат сравнения: true a=false, b=false, c=true, результат сравнения: true a=false, b=true, c=false, результат сравнения: true a=false, b=true, c=true, результат сравнения: true a=true, b=false, c=false, результат сравнения: true a=true, b=false, c=true, результат сравнения: true a=true, b=true, c=false, результат сравнения: true a=true, b=true, c=true, результат сравнения: true 2. var   a, b, c: integer; begin   for a : = 1 to 9 do       for b : = 0 to 9 do           for c : = 0 to 9 do               if sqr(10 * a + b) - sqr(c) = 100 * a + 10 * b + c then writeln(a, b, c) end. результат выполнения программы: 100 147

Всего на экране 640 умножить на 320 равно 204800 точек. 32 возможных варианта цвета. из формулы n=2^i получаем количество информации, приходящуюся на одну точку: 32=2^i   -> i = 5 бит. то есть каждая точка в изображении "весит" 5 бит. умножим на количество точек: 204800 точек * 5 бит/точка = 1024000 бит. чтобы перевести в килобайты надо это число сначала поделить на 8 - получим количество байт, а затем количество байт поделим на 1024, в результате получим, что информационный объем сообщения составляет 125 кбайт