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;
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.