про элементы вектора Опции

[Zeon]

Не догоню я ее никак!

Код

type ref = ^integer;
vector = array[1..17] of ref;

Описать логическую функцию Fod(x), которая проверяет, все ли числа, на которые ссылаются элементы вектора x, четные и отрицательные.

Сообщение отредактировано: volvo - 21.01.2005 9:29

[BlackShadow]

Где-то я это уже видел...

Код

Function Fod(x:Vector):Boolean;
Var
 i:Integer;
Begin
 Fod:=False;
 For i:=1 To 17 Do
   If Not Odd(x[i]^) Then
     Exit
   Else
     If x[i]>=0 Then
       Exit;
 Fod:=True
End;