Программка нахождения произведения нечетных чисел для 5 вводимыхСделать через Паскаль

Программа нахождения творенья нечетных чисел для 5 вводимых
Сделать через Паскаль

Задать свой вопрос
1 ответ
Const
N = 5;

type
Tmas = array [1..N] of longint;

var
m: Tmas;
i, proiz: longint;
begin
proiz := 1;
for i := 1 to N do
begin
readln(m[i]);
if m[i] mod 2 = 1 then
proiz:=proiz*m[i];
end;
writeln(proiz);
end.



пж как наихороший
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт