Регистрация
dianasobol
07.02.2021 03:21
Информатика
Есть ответ 👍

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

253
294
Посмотреть ответы 2

Ответы на вопрос:

OМайгад
OМайгад
4,4(38 оценок)
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.
veraveta
veraveta
4,4(15 оценок)

я не украйнец я незнаю я казах

Популярно: Информатика