• дан целочисленный массив на 10 элементов.Найти количество и сумму элементов кратных k

Ответы 2

  • Спасибо:)
    • Автор:

      warren71
    • 6 лет назад
    • 0
  • var a:array[1..10] of integer;i,k,s,r:integer;beginfor i:=1 to 10 do readln(A[i]);writeln('Введите число k');readln(k);s:=0;r:=0;for i:=1 to 10 do  if (A[i]modk=0) then begin r:=r+1; s:=A[i]+s;end;writeln(s,r);end.
    • Автор:

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

Войти через Google

или

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

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

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