ТутРешу.Ру

Найдите сумму элементов массива, который делится на 5 и 8 одновременно

Задание:

Найдите сумму элементов массива, который делится на 5 и 8 одновременно

Решение:

Uses crt; const n=10; var a: array[1… n] of integer; i,s: integer; beginrandomize; for i: =1 to n dobegina[i]: =random (1000); write (a[i],'); end; writeln; for i: =1 to n doif (a[i] mod 5=0) and (a[i] mod 8=0) then s: =s+a[i]; writeln (s); end.




Знаете другой ответ?

Отправить свой ответ