Битовая глубина = 32 ,видеопамять делится на 2 страницы,разрешающая способность дисплея - 800х600.вычислить объём видеопамяти.

1. n = 2i, 32 = 2i, i = 5 бит - глубина цвета; 2. 640*480*5*4 = 6144000 = 750 кбайт.

1) var   n, i, c, sum, sum2, c2: integer;     a: array of integer;   begin   sum : = 0;     sum2 : = 0;   c2 : = 0;   c : = 0;     readln(n);     setlength(a, n);     for i : = 0 to n - 1 do     begin     read(a[i]);       if(a[i] > 0) and (a[i] > 6) then       begin       sum : = sum + a[i];         c : = c + 1;       end;       if(a[i] mod 2 = 0) and (a[i] > 6) then       begin       sum2 : = sum2 + a[i];       c2 : = c2 + 1;       end;     end;     writeln(sum / c);     write(sum2 / c2);   end. 2) var   n, i, max, im: integer;   a: array of integer;   begin   im : = 1;   readln(n);   setlength(a, n);   for i : = 0 to n - 1 do   begin     read(a[i]); if(i = 1) then max : = a[0];     if(a[i] > max) then     begin       max : = a[i];       im : = i + 1;     end;   end;   write((max * 2) / im); end.