Сканируется цветное изображение размером 12, 7×12, 7 дюйм. разрешающая сканера — 1200×1200 dpi, глубина цвета — 4 бита. какой информационный объём будет иметь полученный графический файл?

1) 1200 * 1200 dpi означает, что в квадрате размером 1 дюйм на 1 дюйм сканируется такое количество точек
2) в 1 дюйме = 2,54 см, значит в 10 см содержится 3,94 дюйма (10/2,54 = 3,94)
3) 3,94* 1200 = 4728 пикселей по ширине и по высоте экрана
4) 4728 * 4728 = 22353984 точек в цветном изображении 10 на 10 см
5) 22353984 * 24 = 536495616 бит - информационный объем изображения
Переведем в большие единицы измерения:
536495616 бит / 8 = 67061952 байт / 1024  = 65490,2 Кбайт / 1024 = 64 Мбайта
ответ: полученный файл будет 64 Мбайта.

Программы на языке Pascal.

Ввод элементов массива с клавиатуры:

program a;

const N=10;

var m: array [1..N] of integer;

   i, max: integer;

begin

 max:= -32768;

 for i:= 1 to N

   do begin

        readln(m[i]);

        if(m[i]>max)

          then max:= m[i];

      end;

 writeln(max);

end.

Заполнение массива случайными числами:

program a;

const N=10;

var m: array [1..N] of integer;

   i, max: integer;

begin

 randomize;

 max:= -32768;

 for i:= 1 to N

   do begin

        m[i]:= random(-32768, 32767);

        if(m[i]>max)

          then max:= m[i];

      end;

 writeln(max);

end.

Код написан на Pascal (только умоляю, будь аккуратен с отступами и табуляцией). Также прикрепил вывод компилятора (красным обвёл то, что нужно именно тебе, на остальное не обращай внимания). Также код есть в текстовом фале (его тоже прикрепил):

uses crt;

const n=10;

var m : array[1..n] of integer;

i, max, max_i : integer;

begin

   for i:= 1 to n do

   begin

       m[i]:= random(-10) + 10;

       write(m[i],' ');

   end;

   max:= m[1];

   max_i:= 1;

   for i:= 1 to n do

   begin

       if (max > m[i]) then

       begin

           max:= m[i];

           max_i:= i;

       end;

   end;

   writeln();

   writeln('max = m[',max_i,']');

   writeln('max = ',max);

end.