не могу додуматся как записать условие

@madfel · Регистрация: 05.03.2011

Author24 — интернет-сервис помощи студентам

вот задача: Ввести одномерный массив из 12 элементов. Определить в нем сумму элементов, чье значение без остатка делится на 3 и не делится на 2.
не могу придумать как записать "без остатка делится на 3 и не делится на 2".а точнее: "и не делится на 2".надо ли там сделать A[i]mod2 или div не знаю(((помогите,надо сессию закрыть

@kofee"k · 05.03.2011, 20:16

Pascal

program tt;
uses crt;
const
  Nmax=12;
var
  m:array [1..Nmax] of integer;
  i,sum:integer;
begin
  ClrScr;
  sum:=0;
  writeln('Введите элементы массива:');
  for i:=1 to Nmax do begin
    read(m[i]);
    if (m[i] mod 3=0) and(m[i] mod 2<>0) then
      sum:=sum+m[i];
  end;
  writeln('sum= ',sum);
  readln;
end.

@madfel · 05.03.2011, 21:08 **[ТС]**

спасибо)

@madfel 0 / 0 / 1 Регистрация: 05.03.2011 Сообщений: 6
		1
	не могу додуматся как записать условие 05.03.2011, 19:30. Показов 945. Ответов 2 Метки нет (Все метки) вот задача: Ввести одномерный массив из 12 элементов. Определить в нем сумму элементов, чье значение без остатка делится на 3 и не делится на 2. не могу придумать как записать "без остатка делится на 3 и не делится на 2".а точнее: "и не делится на 2".надо ли там сделать A[i]mod2 или div не знаю(((помогите,надо сессию закрыть 0

@madfel 0 / 0 / 1 Регистрация: 05.03.2011 Сообщений: 6
	05.03.2011, 21:08 [ТС]	3
	спасибо) 0

не могу додуматся как записать условие

Решение