Одномерный массив. Найти произведение 3-х элементов, значение которых. заключены на интервале [А, В] и кратны 3 или 5

@Dlas · Регистрация: 18.02.2013

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

Дан массив X(N). Найти произведение 3-х элементов, значение которых. заключены на интервале [А, В] и кратны 3 или 5.

@Germanant · 26.02.2013, 23:36

Pascal

program Project1;
uses
  Crt;
  const n=10;
Var X:array [1..n] of integer;
    El:array[1..3] of integer;
    Fk:integer;
procedure InitM;
var i:integer;
begin
 Randomize;
 for i:=1 to n do
  begin
   X[i]:=random(10)+1;
   Write(x[i]:4);
  end;
  writeln;
end;
function Pow:integer;
var i,P:integer;
begin
p:=1;
for i:=1 to 3 do
 p:=p*El[i];
 pow:=p;
end;
var i,a,b:integer;
begin
Fk:=1;
readln(a);readln(b);
InitM;
for i:=1 to n do
 begin
  if fk=4 then break;
  if (((x[i]>=a)and(x[i]<=b)) and((x[i] mod 3 =0 )or(x[i] mod 5 =0 )))
  then
   begin
    El[Fk]:=x[i];
    inc(fk);
   end;
 end;
if fk=4 then
writeln(pow);
readln;
end.

@Dlas 0 / 0 / 0 Регистрация: 18.02.2013 Сообщений: 8
		1
	Одномерный массив. Найти произведение 3-х элементов, значение которых. заключены на интервале [А, В] и кратны 3 или 5 26.02.2013, 22:47. Показов 1196. Ответов 1 Метки нет (Все метки) Дан массив X(N). Найти произведение 3-х элементов, значение которых. заключены на интервале [А, В] и кратны 3 или 5. 0

Опции темы

Одномерный массив. Найти произведение 3-х элементов, значение которых. заключены на интервале [А, В] и кратны 3 или 5

Решение