Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ про элементы вектора

Автор: Zeon 21.05.2004 21:00

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

Код
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;