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

@Екатерина18 · Регистрация: 27.10.2014

Студворк — интернет-сервис помощи студентам

Имеется массив А из N произвольных чисел A (N) среди которых есть положительные, отрицательные и равные нулю. Найти произведение элементов кратных трем. Например если А={2,4,9,2,6,-3,0} результат: 9*6*(-3)=-162

@Joy · 28.10.2014, 06:54

Pascal

const N=20;
var
  a:array[1..N] of integer;
  i:integer;
  p:real;
begin
  randomize;
  p:=1;
  write('A={');
  for i:=1 to N do begin
    a[i]:=random(20)-10;
    write(a[i]);
    if i<N then write(',');
    if (a[i]<>0) and (a[i] mod 3=0) then p:=p*a[i];
  end;
  writeln('}');
  writeln('Произведение, элементов кратных 3 равно:',p:0:0);
  
end.

@Екатерина18 0 / 0 / 0 Регистрация: 27.10.2014 Сообщений: 12
		1
	Найти произведение элементов массива, кратных трем 27.10.2014, 23:56. Показов 2303. Ответов 1 Метки нет (Все метки) Имеется массив А из N произвольных чисел A (N) среди которых есть положительные, отрицательные и равные нулю. Найти произведение элементов кратных трем. Например если А={2,4,9,2,6,-3,0} результат: 96(-3)=-162 0

	28.10.2014, 06:54

Опции темы

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

Решение