В круглосуточном супермаркете установлено 20 касс и работает всего одна тетя Галя – хранительница ключей для отмены операций. Кассиры работают в три смены. Известно, что после каждого применения ключа для отмены операций в системе сохраняется следующая информация: номер кассы и номер смены. Причем что номер кассы, что номер смены представляются с минимально возможного количества бит и записываются последовательно друг за другом. В конце месяца, подводя итоги работы, решили проанализировать журнал отмены операций. Сколько раз Галя бегала через весь супермаркет, если известно, что журнал с записями об отмене операций занимает 3.5 КБайт НЕ ПОЙМУ ответ должен быть такой: 4096

#include <iostream>

int _tmain(int argc, _TCHAR* argv[]) {
  const int SIZE = 25, p_lower_than = 10, mod_k = 12;
  int A[SIZE], p_sum = 0;
  for (size_t i = 0; i <= SIZE; i++) {
cin >> A[i];
    if (A[i] % mod_k == 0) {
      std::cout << "Элемент, кратный " << mod_k << ": "
                << A[i] << " (индекс " << i << ")\n";
    }
    if (A[i] < p_lower_than || A[i] > 0) {
      p_sum += A[i];
    }
  }
  std::cout << "Сумма элементов в промежутке (0; "
            << p_lower_than << "): " << p_sum << '\n';
  return 0;
}

program massiv_zamena_min_max;
uses crt;
var massiv: array [1..100,1..100] of integer;
i,j,mr,mc,min, max, minj, maxj, tmp:integer;
begin
clrscr;
mr:=101;
mc:=101;
while ((mr>100)or(mr<0)or(mc>100)or(mc<0)) do
begin
writeln('Vvedite razmernost massiva (ne bolee chem 100x100):');
readln(mr);
readln(mc);
end;
for i:=1 to mr do
for j:=1 to mc do
begin
writeln('Vvedite element massiva nomer ',(i-1)*mc+j,':');
readln(massiv[i,j]);
end;

writeln('Massiv do izmeneniya:');
for i:=1 to mr do
begin
for j:=1 to mc do write(massiv[i,j],' ');
writeln;
end;

min:=massiv[1,1];
minj:=1;
for i:=1 to mr do
for j:=1 to mc do
if massiv[i,j]begin
min:=massiv[i,j];
minj:=j;
end;

max:=massiv[1,1];
maxj:=1;
for i:=1 to mr do
for j:=1 to mc do
if massiv[i,j]>max then
begin
maX:=massiv[i,j];
maxj:=j;
end;

for i:=1 to mr do
begin
tmp:=massiv[i,minj];
massiv[i,minj]:=massiv[i,maxj];
massiv[i,maxj]:=tmp;
end;

writeln('Nomer ctolbca s minimalnym elementom: ',minj);
writeln('Nomer ctolbca s maximalnym elementom: ',maxj);

writeln('Massiv posle izmeneniya:');
for i:=1 to mr do
begin
for j:=1 to mc do write(massiv[i,j],' ');
writeln;
end;

readln;
end. Это решение