Задача: Определить Сумму элементов матрицы кратных 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( 'Введите элемент массива')...
Задача: Определить Сумму элементов матрицы кратных 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 выдаёт ( операнды имеют неприводимые типы). Помогите сделать крч
Гость
Ответ(ы) на вопрос:
Гостьты не указал номер элемента массива, который считать будешь
Не нашли ответ?
Похожие вопросы