// написанное после двух косых черт - это пояснения. из программы удалить
program massiv_summa;
var A: array[1..100,1..100] of integer;
//предполагаю, что 1<=N<=100 иначе надо измнить параметры массива<br>var N, Sum: integer;
var i, j: byte;
begin
writeln ('введите 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.