Вычислить произведение чисел, неравных заданному числу Z

[Hug]

Задан массив из N чисел. Вычислить произведение чисел, неравных заданному числу Z и подсчитать количество чисел, стоящих на нечетных местах и принадлежащих промежутку (A, B} .

Вот моя программа но она не верна..

program zadacha;
uses crt;
type
mas=array[1..10] of integer;
var
a: mas;
b: mas;
i,j,k,z,p,n:integer;
begin
z:=1;
p:=1;
writeln ('n');
readln (n);
      for i:=1 to n do
      write ('a[',i,']');
      readln (a[i]);
        begin
        if (a[i]<0) and ((i mod 2)<>0) then
        if (a[i]<>z) then
        p:=p*(a[i]);
        end;
           begin
           for i:=1 to n do
           write ('b[',i,']');
           readln (b[i]);
              begin
              if (b[i]<0) and ((i mod 2)<>0) then
              if (b[i]<>z) then
              p:=p*(b[i]);
              end;
           end;
writeln ('p=',p);
end.

[ViktorR]

Как вариант:

program zadacha;
uses crt;
type
   mas=array[1..10] of integer;
var
   m: mas;
   b: mas;
   i,j,z,p,n, a, b:integer;
begin
 
   repeat
      writeln ('Vvedi N <= 10');
      readln (n);
   until n > 10;
   writeln ('Vvedi interval A, B: ');
   readln (A,B,);
   writeln ('Vvedi chislo: ');
   readln (Z);
   j := 0; {Kol-vo chisel v intervale}
   p:=1;  {Proizvedenie chisel, ne ravnih Z}
   for i:=1 to n do begin
      write ('m[',i,'] = ');
      readln (m[i]);
      if ((m[i] > A) AND (m[i] <= B) AND ((i mod 2)<>0)) then
         j := j + 1; {Chisel v intervale (A, B]}
      if (m[i] <> Z) then
          p:=p*(a[i]);
   end;
   writeln('Kol-vo chisel v intervale (', A, ', ', B,'] = ', j);
   writeln ('Proizvedenie chisel, ne ravnih Z = ',p);
end.

Только следует проверить, так как не компилировал ...
Посмотри, как задается интервал.
Если размер массива задан, а надо вводить меньшее число элементов, то следует контролировать пользователя, который выбирает это число.


Как-то так, ...

[Serge_Bliznykov]

произведение достаточно быстро растущая функция, поэтому, чтобы избежать переполнения разрядности целого числа, я бы для хранения произведения сделал переменную p вещественного типа (real или doble или extended)!

[Hug]

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

Как вариант:

program zadacha;
uses crt;
type
   mas=array[1..10] of integer;
var
   m: mas;
   b: mas;
   i,j,z,p,n, a, b:integer;
begin
 
   repeat
      writeln ('Vvedi N <= 10');
      readln (n);
   until n > 10;
   writeln ('Vvedi interval A, B: ');
   readln (A,B,);
   writeln ('Vvedi chislo: ');
   readln (Z);
   j := 0; {Kol-vo chisel v intervale}
   p:=1;  {Proizvedenie chisel, ne ravnih Z}
   for i:=1 to n do begin
      write ('m[',i,'] = ');
      readln (m[i]);
      if ((m[i] > A) AND (m[i] <= B) AND ((i mod 2)<>0)) then
         j := j + 1; {Chisel v intervale (A, B]}
      if (m[i] <> Z) then
          p:=p*(a[i]);
   end;
   writeln('Kol-vo chisel v intervale (', A, ', ', B,'] = ', j);
   writeln ('Proizvedenie chisel, ne ravnih Z = ',p);
end.

Только следует проверить, так как не компилировал ...
Посмотри, как задается интервал.
Если размер массива задан, а надо вводить меньшее число элементов, то следует контролировать пользователя, который выбирает это число.


Как-то так, ...

Спасибо что старался помочь но эта задача даже не рабочая.

[Serge_Bliznykov]

ну так исправили бы!!
логика то верная была в программе!

program zadacha;
uses crt;
type
   mas=array[1..10] of integer;
var
   m: mas;
   i, j, z, n, a, b:integer;
   p : extended;
begin
 
   repeat
      writeln ('Vvedi N <= 10');
      readln (n);
   until (n >0) and (n<=10);
   writeln ('Vvedi interval A, B: ');
   readln (A,B);
   writeln ('Vvedi chislo Z: ');
   readln (Z);
   j := 0; {Kol-vo chisel v intervale}
   p:=1;  {Proizvedenie chisel, ne ravnih Z}
   for i:=1 to n do begin
      write ('m[',i,'] = ');
      readln (m[i]);
      if odd(i) and (m[i] > A) and (m[i] <= B) then
         j := j + 1; {Chisel v intervale (A, B] стоящих на нечётных местах}
      if (m[i] <> Z) then
          p:=p*(m[i]);
   end;
   writeln('Kol-vo chisel v intervale (', A, ', ', B,'] = ', j);
   writeln ('Proizvedenie chisel, ne ravnih Z = ',p:10:0);
   Readln
end.