Автор: Zeon 21.05.2004 21:00
Не догоню я ее никак!
Код
type ref = ^integer;
vector = array[1..17] of ref;
Описать логическую функцию Fod(x), которая проверяет, все ли числа, на которые ссылаются элементы вектора x, четные и отрицательные.
Автор: BlackShadow 24.05.2004 15:44
Где-то я это уже видел...
Код
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;