Question

Имеется кусок кода (Паскаль), написанный для данного задания: "Дан массив из 40 элементов на отрезке -40 до 50. Найти произведение элементов больше 0 и кратным 7."

Необходимо дописать код ,т.е var, begin и т.п

for i:=Low(a) to High(a) do a[i]:=-40+Random(91);
p:=1;
for i:=Low(a) to High(a) do if (a[i]>0) and (a[i] mod 7=0) then p:=p*a[i];

Answer 1

Ответ:

program kod;

var

 a: array [1..10] of Integer;

 i, p: Integer;

begin

 for i:=Low(a) to High(a) do a[i]:=-40+Random(91);

 p:=1;

 for i:=Low(a) to High(a) do if (a[i]>0) and (a[i] mod 7=0) then p:=p*a[i];

end.

Объяснение:

У меня второй вариант решения. Размерность массива: [1..10]  можно любую делать