Помогите написать программку по информатике.Напишите программку которая выдает творения

Помогите написать программку по информатике.Напишите программку которая выдает творения только четных целых чисел.

Задать свой вопрос
1 ответ
Const n= 10;
var i,m: integer;
    aa:array[1..n] of integer;
begin  m:= 1;
  for i:= 1 to n do
  begin   
aa[i]:= random(100); 
   if (aa[i] mod 2 = 0) then    m:= aa[i] * m;
  end; 
 writeln(m);
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт