Найдите сумму элементов массива (50 элементов из [-50; 50]) кратных 7.

program zz1;

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

i, s:integer;

begin

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

mas[i]:=random (101) - 50;

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

write (mas[i],' ');

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

for i:=1 to 50 do

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

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

end.