Question

Подготовить алгоритм или текст программы с минимальным количеством циклов, в котором заштрихованные элементы (индексация начинается от левой верхней ячейки) массива 8х10 заполняются суммой индексов, а остальные элементы - нулями.

Answer 1

===== PascalABC.NET =====

begin

 var s: array of string := (

   'bbbbwwbbbb',

   'bbbwwwwbbb',

   'bbwwwwwwbb',

   'bwwbwwbwwb',

   'bwwwbbwwwb',

   'bbwwwwwwbb',

   'bbbwwwwbbb',

   'bbbbwwbbbb');

 var a := MatrFill(8, 10, 0);

 for var i := 0 to 7 do

   for var j := 0 to 9 do

     if s[i][j + 1] = 'b' then

       a[i, j] := i + j + 2;

 a.Println(3)

end.