Дан одномерный массив из 30 частей, составить программу для подсчета творения

Дан одномерный массив из 30 частей, составить программку для подсчета творения четных элементов этого массива.

Задать свой вопрос
1 ответ
Program z1;
var A:array[1..30] of integer;
i,k:integer;
begin
k:=1;
for i:=1 to 30 do begin 
write('a[',i,']=');
read(a[i]);
end;
for i:=1 to 30 do 
if a[i] mod 2=0 then
k:=a[i]*k;
writeln(k);
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт