Имеется кусок кода (паскаль), написанный для данного : "дан массив из 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];
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] можно любую делать