задача с массивом

[GoldSieg]

текст задания
Если у вектора b (b1, b2, …, bN) есть компонента со значением, равным q, то переменной r присвоить значение, равное 0. В противном случае переменной r присвоить значение, равное произведению всех компонент вектора b. Печатать r, q, вектор b.
никак не могу написать. программу. работает неправильно.
вот что я накарябал...

program dfd;
const n=10;
var b:array[0..n]of integer;
    i:integer;
    q,r:real;
begin
 write('q=');
 read(q);
  for i:=0 to n do 
  read(b[i]);
   for i:=0 to n do
   if (b[i])=q then r:=0 else r:=(b[i]*n);
    for i:=0 to n do 
    write(b[i],' '); write(' ''r=',r)
 end.

[Vanta11a]

program dfd;
const n=10;
var b:array[0..n]of integer;
    i:integer;
    q,r:real;
    bl:boolean;
begin
 write('q=');
 read(q);
 bl:=FALSE;
  for i:=0 to n do 
   begin  
   read(b[i]);
   if (b[i]=q) then 
    begin
    r:=0;
    bl = TRUE;
    end
   else 
    if (bl <> TRUE) then
    r:=(b[i]*r);
   end;
for i:=0 to n do 
write(b[i],' '); write(' ''r=',r)
end.

[Вадим Мошев]

for i:=0 to n do
   if (b[i])=q then r:=0 else r:=(b[i]*n);

Ошибка вот здесь.
У вас здесь написано: если i-й элемент вектора равен q, то переменной r присвоить нуль, иначе попытка найти произведение всех компонент вектора, что у вас делается неверно.

БЫДЛОРЕШЕНИЕ УДАЛЕНО АВТОРОМ

[Vanta11a]

Результатом работы программы будет просто произведение всех компонентов вектора (массива). И не надо ничего проверять. Оператор If в этой задаче вообще не нужен.

Это если q = 0 или элемент, = q, просто отсутствует. А если нет?

[Вадим Мошев]

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

Это если q = 0 или элемент, = q, просто отсутствует. А если нет?

Спасибо за поправку, что-то затмило у меня

Тогда попробую своё решение предложить

f:=false;

for i:=1 to n do
		if A[i] = q then
				begin
				 f:=true;
				 break;
				end;
				
if NOT f
	then
		begin
		 r:=1;
		 for i:=1 to N do
		 		r:=r*A[i];
		 		
		end
		
	else
		r:=0;

а вообще, мне кажется, что автор просил нас указать на его ошибки, а не писать своё решение.
Поэтому:

var b:array[0..n]of integer;
    .........
  for i:=0 to n do

в принципе правильно, но только у вас используется не N переменных, а N+1. Рекомендую поступить так: убрать объявление константы, в объявлении массива нижнюю границу указать не 0, а 1, последнюю границу указать равной 10, ну и, наконец, все циклы указать не с 0, а с 1.

[Serge_Bliznykov]

ребят, а Вас при решении никого не смутило, что массив объявлен как целочисленных, а переменная q - в которой задаётся искомый компонент - ВЕЩЕСТВЕННАЯ.
Имхо, это, как минимум, странно и нелогично...

NB. разумеется, искомая компонента должна иметь тот же тип, что и компоненты вектора (массива). в данном случае: var q : integer;

[Vanta11a]

ребят, а Вас при решении никого не смутило, что массив объявлен как целочисленных, а переменная q - в которой задаётся искомый компонент - ВЕЩЕСТВЕННАЯ.
Имхо, это, как минимум, странно и нелогично...

Я просто не обратил внимания, честно. Правил только то, что необходимо для реализации логики.

[GoldSieg]

Всем спасибо за ответы. щас буду разбираться..
хотя что то я даже не рассматривал сделать прогу через логический тип..

[GoldSieg]

а что надо написать чтобы перемножить у массива все его компоненты между собой???

[Вадим Мошев]

p:=1;
for i:=1 to N do p:=p*A[i];