Для хранения растрового изображения размером 128x128 пикселей используется 8 кбайт памяти каково максимально возможное число цветов в палитре данного изображения

8*8*2^10/2^14=4 бита n=2^4=16 цветов

Var   m, n, i, j: integer;   s: real;   a: array[,] of real;   begin   write('введите s: ');   read(s);   write('введите m, n: ');   read(m, n);   setlength(a, m + 1, n + 1);   writeln('введите элементы матрицы: ');   for i : = 1 to m do       for j : = 1 to n do           read(a[i, j]);   for i : = 1 to m do   begin       for j : = 1 to n do            if a[i, j] < > s then           begin               writeln(a[i, j]);               break;           end;       if a[i, j] = s then           writeln('-');   end; end. пример: введите s: 7 введите m, n: 3 4 введите элементы матрицы: 7 4 3 7 3 5 1 4 7 7 7 7 4 3 -

Const  n=10; type  myarr=array[1..10] of integer; var ar: myarr; ar2: myarr; i,k: integer; procedure sortmin(var a: myarr; n: integer); var i,j,x: integer; begin;   for i: =1 to n do  for j: =1 to n-1 do    if a[j]< a[j+1] then      begin        x: =a[j+1];         a[j+1]: =a[j];         a[j]: =x;         end; end; begin; randomize; k: =0; writeln('first array: '); for i: =1 to 10 do  begin;   ar[i]: =random(100);   write(ar[i]: 4);   if (ar[i]> 10) and (ar[i] mod 3=0) then    begin;     inc(k);     ar2[k]: =ar[i];     end;   end; if k=0 then  begin;   writeln('нет подходящих элементов');   exit;   end; sortmin(ar2,k); writeln; writeln('final array: '); for i: =1 to k dowrite(ar2[i]: 4); end.