Информатика

Анемподист

4 июля, 17:38

Задача: Определить Сумму элементов матрицы кратных 3

Вот решение:

Program crh;

Const n=5; m=6;

Var a:array [1 ... N, 1 ... M] of integer; i, s:integer;

Begin

For i: = 1 to N do

For k: = 1 to M do begin

write ('Введите элемент массива') ;

Read (A[i, k]) ;

end;

For i: = 1 to N do

For k: = 1 to M do

if A mod 3 = 0 then

s:=s+1;

write ('Сумма элементов равна', s) ;

end.

Найдите ошибку, на строке if A mod 3 = 0 then выдаёт (операнды имеют неприводимые типы). Помогите сделать крч