Видеопамять компьютера имеет объём 512 КБ, размер графической сетки 800 х 600, в палитре 32 цвета. Какое количество страниц экрана может одновременно разместиться в видеопамяти компьютера?

Решение на паскаль.
начало решения задач одинаковое, а дальше см. внизу

program xxx;
var b: array [1..6, 1..6] of integer;
 i, j, s : integer;
begin
for i:= 1 to 6 do
for j:=1 to 6 do
 b[i,j]:= random(131)-65;
writeln ('исходная матрица В:');
for i:=1 to 6 do
  begin
   for j:=1 to 6 do
     write (b[i,j]:4);
   writeln
 end;

задание 1.
s:=0;
for i:= 1 to 6  do
  if b[i,3]>0 then s:=s+b[i,3];
writeln ('сумма положительных элементов 3-го столбца', s)
end.

задание 2.
i:=2;
while i<=6 do begin
  for j:= 1 to 6 do
    if b[i,j]<0 then b[i,j]:=0;
  i:=i+2
end;
writeln ('полученная матрица В:');
for i:=1 to 6 do
  begin
   for j:=1 to 6 do
     write (b[i,j]:4);
   writeln
 end
end.

Const
  m=10;
  n=6;
var
  a:array[1..m,1..n] of integer;
  i,j,maxr:integer;
  p,maxp:longint;
begin
  Randomize;
  Writeln('Исходный массив');
  maxp:=0;
  for i:=1 to m do
  begin
    p:=1;
    for j:=1 to n do
    begin
      a[i,j]:=Random(99)+1; { интервал [1..99] }
      Write(a[i,j]:3);
      p:=p*a[i,j]
    end;
    if maxp<p then begin maxp:=p; maxr:=i end;
    Writeln
  end;
  for i:=1 to m do
    for j:=1 to n do a[i,j]:=a[maxr,j];
  Writeln('Сформированный массив');
  for i:=1 to m do
  begin
    for j:=1 to n do Write(a[i,j]:3);
    Writeln
  end
end.

Тестовое решение:
Исходный массив
 86 61 76  1 86 64
 93 87 34 66 35 13
 51 39 57  5 71 49
 86 47 26 30 93 80
 58 24 59 57  3 79
 46 81 17 24 11 37
 12 83 56 75 89 16
 50 93 57  1 51 64
 25 35 69 29 46 73
 68 56 68 95 42 62
Сформированный массив
 86 47 26 30 93 80
 86 47 26 30 93 80
 86 47 26 30 93 80
 86 47 26 30 93 80
 86 47 26 30 93 80
 86 47 26 30 93 80
 86 47 26 30 93 80
 86 47 26 30 93 80
 86 47 26 30 93 80
 86 47 26 30 93 80