Pascal.
Заполнить двумерный массив N x N случайными числами из интервала [-10 ; 10] и найти сумму элементов кратных 3.


С объяснением пожалуйста!

// написанное после двух косых черт - это пояснения. из программы удалитьprogram massiv_summa;var A: array[1..100,1..100] of integer; //предполагаю, что 1<=N<=100 иначе надо измнить параметры массиваvar N, Sum: integer;var i, j: byte;beginwriteln ('введите N');readln (N); //ввод значения N c клавиатурыSum:=0; // Определяем начальное значение суммы чисел массива, кратных 3    for i:=1 to N do begin // внешний цикл перебирает строки массива      for j:=1 to N do begin //внутренний цикл перебирает ячейки в каждой строке       A[i,j]:=random(-10,10); //элементу массива присваивается случайное значение      if (A[i,j] mod 3)=0 // если остаток от деления числа на 3 равен нулю (кратно 3)          then Sum:=Sum+A[i,j]; //если кратно 3, то прибавляем его к сумме           //если не кратно 3, то ничего не делаем. т.е. оператор else отсутствует                   //Для проверки можно вывести весь массив, например:                  write (A[i,j]:4);      end;      writeln //для вывода новой строки массива с новой строки  end;writeln ('Сумма чисел кратных 3 равна ',Sum);end.