Имеется кусок кода (Паскаль), написанный для данного задания: "Дан массив из 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];
Please enter comments
Please enter your name.
Please enter the correct email address.
You must agree before submitting.

Answers & Comments


Copyright © 2024 SCHOLAR.TIPS - All rights reserved.