«Компьютерная графика» 7 класс
1) В рисунке, выполненном на компьютере,
использовалось 16 цветов. Каков объем изображения в
байтах, если его размеры 640 x 350 точек?
2) Сколько цветов было в рисунке, если его размеры
1024 x 512 точек, а информационный объем 512 Кб.
3) При отправке электронного письма установлено
ограничение на вложение — 5 Мб. Сколько
изображений может прикрепить к письму
пользователь, если его рисунки имеют размер 500*300
и выполнены с использованием 128 цветов.
4) Два рисунка занимают одинаковый объем памяти.
Первый выполнен в 4-цветном изображении с
размерами 300 x 200. А во втором использовались 256
цветов (28=256) и его размеры 300 x Z. Найдите Z?

Код написан на 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.

Программы на языке 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.