Форум АНТИЧАТ - Показать сообщение отдельно - Студентам с лабораторными сюда

Цитата:

Сообщение от P.A.U.L

n1ghtstalker, ой сорь, чтот я затупил с кодом, видать не сохранил переделанную, а скинул код совсем сырой...

Функция данной задачи должна вроде выглядеть так, а как ее впихнуть в саму программу чет не догоняю, не оч дружу с функциями.
Если тебе не сложно помоги доделать ее по условию задачи...

Код:

function proverk (a:array[1..n] of integer):integer;
  var
    i,j:integer;
  begin
    for i:=1 to n-2 do
      if a[i] mod 2 <> 0 then
        if a[i+1] mod 2 <> 0 then
          if a[i+2] mod 2 <> 0 then
            begin
              proverk:=i;
              exit;
            end;
      proverk:=0;
  end;

ты читал мои комментарии? где случай else??
у тебя после всех проверок сначала присваивается значение i , а в конце концов 0 .

+ номер первого числа встретившейся тройки таких чисел... ??? WTF?
скинь всё условие.
при том соседними для к примеру для 4 являются 1,2,3 так и 5,6,7.