Задать вопрос Регистрация
Помочь другим

  • составить программу вычисления суммы и произведения натуральных чисел кратных 9

     

    Очень надо!!!!

Ответы 1

  • Вот.

     

    Program z1;Uses crt;Const N=15;Var a:array [1..n] of integer;sum,i,pr:integer;Beginsum:=0;For i:=1 to n dobegina[i]:=random(10)-15;

    Writeln(a[i]);end;for i:=1 to n doif a[i] mod 9 = 0 thenbeginsum:=sum+a[i];pr:=1*a[i];end;

    Writeln('Сумма:');Writeln(sum);

    Writeln('Произведение:');write(pr);end.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

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

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

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