Дан двумерный массив 7х8. найти сумму положительных элементов в каждой строке. определить наибольший элемент 1-го столбца(значение и координаты)

Var     i,j,im,max,s: integer;     a: array[1..7,1..8]of integer; begin for i: =1 to 7 do   begin   for j: =1 to 8 do     begin     a[i,j]: =random(-10,10);     write(a[i,j]: 4);     if a[i,j]> 0 then s: =s+a[i,j];     if (j=1) and (a[i,j]> max) then         begin         max: =a[i,j];         im: =i;         end;     end;   writeln('   s=',s);   s: =0;   end; writeln('a(',im,',1)=',max); end.

Const   csize = 10; var   m: array[1..csize] of integer; begin   randomize();   var max : = -(maxint);   write('исходный массив: ');   for var i : = 1 to csize do   begin       m[i] : = random(100) + 1;       if (i mod 2 = 0) and (m[i] > max) then max : = m[i];       write(m[i], ' ')   end;   write(newline, 'преобразованный массив: ');   for var i : = 1 to csize do   begin       if m[i] mod 3 = 0 then m[i] : = max;       write(m[i], ' ')   end end.

Берем третьи байты и переводим в двоичную систему счисления: добавим в начале нулей, чтобы получилось 8 цифр.   ←    ←  найдем маску. запишем с столбик. если элементы одинаковые, ставим соответствующее число, если элементы разные, ставим крестик: 00000101 00011101 000xx101    ← маска т.к. по правилу в маске, сначала идут единицы, переместим их в начало: 11xx0000 если бы по условию, надо было бы найти наименьшее возможное значение, то мы бы заменяли крестики(х) на нули. т.к. по условию необходимо наибольшее возможное значение, подставляем вместо крестиков(x), единицу и переведем в десятичную систему счисления: