24.12.2009, 22:03
|
|
Познающий
Регистрация: 12.08.2009
Сообщений: 32
С нами:
8815306
Репутация:
0
|
|
[PASCAL]
Помогите плз доделать лабу...
В коде чего то не хватает для нормальной работы программы, но только понять не могу чего...
Здача:
Составить функцию, которая возвращает значение 0, если в последовательности целых чисел а1,а2,...аn отсутствуют три соседних нечетных числа, или номер первого числа встретившейся тройки таких чисел...
Код:
Код:
program proverka;
uses crt;
const n=10;
var c,i:integer;
function proverk (var a:array of integer):integer;
var i,j:integer;
begin
for i:=1 to n-2 do
if b[i] mod 2 <> 0 then
if b[i+1] mod 2 <> 0 then
if b[i+2] mod 2 <> 0 then
begin
proverk:=i;
exit;
end;
proverk:=0;
end;
begin
clrscr;
for i:= 1 to n do begin
readln(a[i]);
c:=proverk(a[i]);
write(' ',c);
writeln;
end;
end.
|
|
|