• Элементы заданной матрицы A(m,n)-целые числа. Напишите программу вычисляющую сумму и произведения элементов, которые кратны 3 или 2.

Ответы 2

  • Выбивает ошибку if (a[i,j] mod 3)=0 or ((a[i,j] mod 2)=0) then begin sum:=sum+a[i,j]); на слове then .Я программу как в точности как у вас скопировал.
    • Автор:

      big nasty
    • 6 лет назад
    • 0
  • 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.
    • Автор:

      braggs
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years