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

program zz1;

const n=10; / /задаем размер массива

var mas:array[1 ... n] of integer;

i, s:integer;

begin

for i:=1 to n do / /заполняем массив случайными числами от 0 до 200

mas[i]:=random (201);

for i:=1 to n do / /выводим массив на экран в строчку через пробел

write (mas[i],' ');

writeln; / /переходим на новую строку для вывода

for i:=1 to n do

if (mas[i] mod 5=0) and (mas[i] mod 8=0) then s:=s+mas[i]; / /проверяем, если элемент массива делится на 5 и на 8, то прибавляем его к сумме

write ('сумма элементов массива = ', s); / /выводим ответ

end.