Заполнить массив случайными числами из промежутка (1-100) и определить в массиве...

Question

Заполнить массив случайными числами из промежутка (1-100) и определить в массиве W[1..30]произведение нечётных чисел кратных 5

Answer 1

Var i,pr:integer;
w:array[1..30] of integer;
begin
pr:=1;
for i:=1 to 30 do begin
w[i]:=random(101);
if (w[i] mod 2<>0) and (w[i] mod 5=0) then pr:=pr*w[i];
end;
writeln(pr);
end.

Comments

Просто ручший

---

Лучший*

---

изи

---

Обращайся

---

Вроде понимаю в инфе , но с паскалем уже год не учился ,всё забыл нафиг