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

Цитата:

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

Помогите плз решить вот такую вот хреньку... Долго думал, но нифига не понял, даже условие задачи...

Составить функцию, которая возвращает значение 0, если в последовательности целых чисел а1,а2,...аn отсутствуют три соседних нечетных числа, или номер первого числа встретившейся тройки таких чисел...

Ну или подскажите хотя бы в какую сторону копать)
Спасибо))

Не знаю даже, в какую сторону отсылать, ибо это основы, поэтому сразу код:

Код:

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;