• КТО РЕШИТ , ТОМУ 50 БАЛЛОВ!! составить программу нахождения суммы чисел , кратных 3 в массиве М [1:12] (числа вводятся с клавиатуры)

Ответы 1

  • Program enot_peredelani;Var a: array[1..100] of integer;c,d:integer;begind:=0;writeln('введите элемент массива');for c:= 1 to 12 dobeginreadln(a[c]);if a[c] mod 3 = 0 then d:=a[c]+d;end;writeln('сумма чисел кратных 3 ==> ',d);end.
    • Автор:

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

Войти через Google

или

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

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

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