Задание:
Составить программу вычисления суммы и произведения натуральных чисел кратных 9 Оченьнадо!
Решение:
Вот. 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.
Знаете другой ответ?