Задание:
Найдите сумму элементов массива, который делится на 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.
Знаете другой ответ?