Дан массив С, размерностью 50; элементы массива-это числа из промежутка от 0 до 50. Написать промежуток, вычислить кол-во, сумму, произведение элементов массива, кратных 7 и меньших 30.

program zz1;

const n = 50; / / задаем количество чисел в массиве

var i, s, k, p:integer; / / задаем переменные целого типа

c:array [1 ... n] of integer;

begin

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

c[i]:=random (51);

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

write (c[i],' ');

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

p:=1;

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

if (c[i] mod 7 = 0) and (c[i] <30) then

begin

k:=k+1;

s:=s+c[i];

p:=p*c[i];

end;

writeln (' количество элементов = ', k); / / выводим ответ

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

writeln (' произведение элементов = ', p); / / выводим ответ

end.