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

@opaopa · Регистрация: 27.05.2014

В заданном одномерном массиве, состоящем из n целых чисел. Найти произведение элементов 3.

@Svager · 06.06.2014, 01:14

Сообщение от opaopa

Найти произведение элементов 3.

что?

@opaopa · 06.06.2014, 01:24 **[ТС]**

кратных 3-м

@Svager · 06.06.2014, 01:28

Pascal

uses crt;
const nmax=20;
type mas=array[1..nmax] of integer;
procedure invect(var x:mas;n:integer);
 var i:integer;
begin
 for i:=1 to n do
  x[i]:=-10+random(20);
end;
procedure print(var x:mas;n:integer);
 var i:integer;
begin
 for i:=1 to n do
  write(x[i]:4);
end;
function dop(var x:mas;n:integer):integer;
 var i,d:integer;
begin
d:=1;
 for i:=1 to n do
  if x[i] mod 3=0 then
   d:=d*x[i];
  if d=1 then
   d:=0;
 dop:=d;
end;
var a:mas;
    i,n:integer;
begin
 repeat
  write('Ðàçìåð ìàññèâà n=');
   readln(n);
 until n in [1..nmax];
 writeln('Èñõîäíûé ìàññèâ : ');
  invect(a,n);
  print(a,n);
 writeln;
 writeln('Ïðîèçâåäåíèå êðàòíûõ òðåì = ',dop(a,n));
end.

@opaopa 0 / 0 / 0 Регистрация: 27.05.2014 Сообщений: 18
		1
	Найти произведение элементов массива, кратных трем 06.06.2014, 01:07. Показов 1256. Ответов 3 Метки нет (Все метки) В заданном одномерном массиве, состоящем из n целых чисел. Найти произведение элементов 3. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@Svager 399 / 378 / 408 Регистрация: 14.09.2013 Сообщений: 1,204
	06.06.2014, 01:14	2
	Сообщение от opaopa Найти произведение элементов 3. что? 0

@opaopa 0 / 0 / 0 Регистрация: 27.05.2014 Сообщений: 18
	06.06.2014, 01:24 [ТС]	3
	кратных 3-м 0

Опции темы

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

Решение