Отыскать творенье частей массива, имеющих нечетное значение.

Найти творение частей массива, имеющих нечетное значение.

Задать свой вопрос
1 ответ
Var a: array [1..10] of integer;
k, i ,n: integer;
begin
k:=1;
n:=10;
for i:=1 to n do
readln(a[i]); //ручной ввод
for i:=1 to n do
if i mod 2 = 1 then 
k:=k*a[i];
writeln(k);
end.     
Маргарита Шлеалюх
var непременно писать?
Артем Пруцев
окончательно
Лидия Довгалева
час изменю код
Ден
хорошо...подожду)
Версопуло Эвелина
всё
Есения
спасибо)
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт