Номер совпадения

[V@mpir]

Необходимо найти ПЕРВЫЙ совпавший элемент, у меня упорно получается последний, думаю что ошибка в цикле, не как не могу выйти из цикла на первом элементе, он продолжает прогонять до конца.

var a:array [1..5] of integer;
     i,r,q:integer;
begin
randomize;
o:=0;
for i:= 1 to 5 do
begin
 a[i]:=random(3);
  writeln (a[i]);
  end;
   readln (q);
    for i:=1 to 5 do
    begin
    if q=a[i] then
      r:=i;
    end;
  writeln ('Nomer sovapadenia',' ' , r);
    writeln;
 readln;
 { TODO -oUser -cConsole Main : Insert code here }

 end.

[Сергeй]

> не как не могу выйти из цикла

Стыдно не знать ни Паскаль ни русский)

По-русски - "никак"
По Вирту прерывание цикла - break

))

[V@mpir]

Прерывать после присвоения номера совпадения переменной

r:=i;

или после, пробовал и так и так не получается...
Либо выводит ноль, либо вообще ничего не выводит.

[Сергeй]

Ты вообще в курсе понятий - "простой" и "составной" оператор языка Паскаль ?

[V@mpir]

Есть что по существу?

var a:array [1..5] of integer;
i,r,q,n:integer;
begin
randomize;
for i:= 1 to 5 do
begin
a[i]:=random(3);
writeln (a[i]);
end;
readln (q);
for i:=1 to 5 do
begin
if q=a[i] then
  break;
end;
 r:=i;

writeln ('Nomer sovapadenia',' ' , r);
writeln;
readln;

И стоило это такого пафоса...

[Сергeй]

А ты считаешь что я от балды задал тебе наводящий вопрос ?)

[netrino]

Сообщение от V@mpir

Есть что по существу?

Тут в общем два пути: первый - начать цикл с конца, и второй(получше в данном случае) вам уже сказали - прервать цикл, когда найдено первое совпадение

for i := 1 to 5 do
    if q = a[i] then
    begin
        r := i;
        break;
    end;

Сообщение от V@mpir

for i:=1 to 5 do
begin
if q=a[i] then
break;
end;
r:=i;

кстати, так лучше не надо, в Паскале не определено значение i после выхода из цикла

[Сергeй]

> в Паскале не определено значение i после выхода из цикла

Глупость сморозил.

[netrino]

Сообщение от Сергeй

> в Паскале не определено значение i после выхода из цикла

Глупость сморозил.

Увы, но это действительно так...
Во многих случаях счётчик будет иметь ожидаемое значение, но не всегда. Не стоит надеяться на случайность

[Stilet]

Сергeй

Между прочим Нетрино прав.
Не рекомендуется использовать FOR если значение счетчика буден нужно после него. Я не знаю почему именно так происходит но в некоторых случаях действительно нельзя (и даже компилятор это запрещает) использовать значение счетчика после цикла FOR.