Найти произведение положительных элементов массива, стоящих на местах, номера которых кратны трем

@liken · Регистрация: 26.06.2014

Дан одномерный массив N(14), найдите произведение положительных элементов массива,стоящих на местах, номера которых кратны трем.

Решите пожалуйста, очень надо

@rjxxx · 27.06.2014, 12:25

Pascal

var
  N:array[1..14] of integer;
  i,proizv:integer;
begin
  proizv:=1;
  
  for i:=1 to 14 do
  begin
    N[i]:=random(-100,100);
    if (i mod 3 = 0) and (N[i]>0) then proizv:=proizv*N[i];
  end;
 
  writeln(proizv);
end.

@liken 0 / 0 / 0 Регистрация: 26.06.2014 Сообщений: 4
		1
	Найти произведение положительных элементов массива, стоящих на местах, номера которых кратны трем 27.06.2014, 11:58. Показов 1781. Ответов 1 Метки нет (Все метки) Дан одномерный массив N(14), найдите произведение положительных элементов массива,стоящих на местах, номера которых кратны трем. Решите пожалуйста, очень надо 0

Опции темы

Найти произведение положительных элементов массива, стоящих на местах, номера которых кратны трем

Решение