Элементы заданной матрицы A(m,n)-целые числа. Напишите программу вычисляющую сумму и произведения элементов, которые кратны 3 или 2.
Элементы заданной матрицы A(m,n)-целые числа. Напишите программу вычисляющую сумму и произведения элементов, которые кратны 3 или 2.
Гость
Ответ(ы) на вопрос:
Гостьvar
a : array [1..100,1..100] of longint;
n,m,i,j,sum,mnj : longint;
begin
readln(n,m);
for i:=1 to n do
for j:=1 to m do read(a[i,j]);
sum:=0;
mnj :=1;
for i:=1 to n do
for j:=1 to m do
if (a[i,j] mod 3)=0 or ((a[i,j] mod 2)=0) then begin sum:=sum+a[i,j]); mnj:=mnj*a[i,j]; end;
writeln(sum,' ',mnj);
end.
Не нашли ответ?
Похожие вопросы