Склади і розв‘яжи графічну задачу. Використай для цього малюнок
Інформатика 2клас

// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('*** Исходный массив A ***');
  var a:=MatrRandom(10,10,0,20);
  a.Println(3); Writeln(3*a.ColCount*'-');
  var b:=a.Rows.Select(row->row.Sum).ToArray;
  Writeln('*** Массив B ***'); b.Println
end.

Пример
*** Исходный массив A ***
  9 15  8 17 18 10 17 15 19 18
 18  0 10  5 20  2 16  3 20 17
  1 11  3  8  4 19 14 10 15 13
  4  2 14 11  4 13 10  2  5  3
  8  5 16 19  1  9 14 16 18 10
  2 14 13 19 19 18 11 20 12 20
 16  7  0  6 13 16  7 20  1  7
 12 14 18 16  9 16 16  5  7 16
  4 19 12  5 10 11  9 16 12  6
  1 10 10  6  7  0  5 10  5  5

*** Массив B ***
146 111 98 68 116 148 93 129 104 59

// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  var s:=a.IndexesOf(x->x mod 10=0);
  if s.Count=0 then Writeln('Нет элементов, оканчивающихся на 0')
  else begin
    Write('Номера элементов, оканчивающихся на 0: ');
    s.Select(i->i+1).Println
    end
end.

Примеры
n= 12
-41 46 29 -13 -43 -21 48 43 41 -48 -19 -44
Нет элементов, оканчивающихся на 0

n= 16
37 -48 39 32 -6 21 -48 34 6 12 -10 -15 40 -36 46 26
Номера элементов, оканчивающихся на 0: 11 13