type
TZapis=record
x0, y0, x1, y1:double;
end;
TArrayZapis:Array[0..100] of TZapis;
Procedure ArrayOfLine(arrLine: TArrayZapis);
Var
i: Integer;
Begin
For i:=0 To High(arrLine)-1 Do
Begin
arrLine[i].x0:=Значение;
arrLine[i].y0:=Значение;
arrLine[i].x1:=Значение;
arrLine[i].y1:=Значение;
End;
End;
Procedure ArrayOfLine(var arrLine: TArrayZapis);
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.